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FOREWORD 


This  user’s  manual  for  the  modified  RMS  (Reliability  and 
Maintainability  Simulator)  computer  program  was  prepared  by 
Technology  Incorporated  and  submitted  per  Item  No.  A002  of  Con- 
tract DAAJ01-74-C-0839(PlG)  to  the  R§M  Division  of  the  AVSCOM 
Product  Assurance  Directorate.  Mr.  Lewis  Neri,  R§M  Division 
Chief,  and  Mr.  Lindell  Whaley  v;ere  the  AVSCOM  Contracting 

(Officer  representatives.  At  Technology  Incorporated,  Mr.  Raymond 
B.  Johnson,  Systems  Analysis  Department  Manager,  supervised  the 
program,  and  Mr.  Larry  E.  Clay  served  as  Program  Manager. 
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1. 


INTRODUCTION 


1 . 1 Background 

As  part  of  its  reliability  and  maintainability  program  for 
Army  helicopters,  the  U.S.  Army  Aviation  Systems  Command  (AVSCOM) 
has  employed  the  Reliability  and  Maintainability  Simulator  (RMS) 
computer  program.  Written  several  years  ago  in  GPSS  V,  this 
program  has  been  modified  several  times  to  more  closely  simulate 
current  Army  helicopter  operation  and  maintenance.  The  latest 
modification  adapted  the  program  to  the  new  three- level  main- 
tenance concept  (AVUM,  AVIM,  and  Depot)  to  replace  the  older  four- 
level  system  (Unit,  Direct  Support,  General  Support,  and  Depot). 
Among  the  latest  program  documents  available  through  AVSCOM  are 
"Army  Simulation  Model  Software  Package,"  "Description  of  Model 
Internal  Operations,"  and  "ARMS  Input  Forms." 

The  RMS  program  simulates  the  operation  of  a company  of  up  to 
24  helicopters  flying  a prescribed  mission  type.  The  program 
simulates  the  mission  call,  preflight  inspection,  flight,  post- 
flight and  daily  inspections,  periodic  inspections,  unscheduled 
maintenance,  component  replacement  and  repair  at  the  field  or 
depot  level,  test  hops  as  required,  and  return  of  aircraft  to  the 
ready  pool.  Unscheduled  maintenance  and  component  failure  are 
simulated  on  a probabilistic  basis;  such  failures  (perhaps  causing 
an  abort)  can  be  detected  in  flight  or  during  any  of  the  inspec- 
tions. Manpower  limitations  are  included  so  that  aircraft  can  be 
held  NORM  to  await  available  maintenance  manpower. 

To  support  the  extensive  input  requirement  of  the  basic  RMS 
program,  AVSCOM  recently  developed  a Fortran  program  to  generate  a 
large  portion  of  the  input  data.  This  program  was  used  to  develop 
the  input  data  for  the  seven  OH-58  test  alternatives  presented  in 
the  final  report  for  the  current  contractual  development. 


1.2  RMS  Cost  Modification 


Since  the  basic  RMS  model  did  not  include  cost  information, 
it  could  not  project  the  economic  consequences  of  changes  in  the 
system  reliability  or  in  the  maintenance  procedures,  nor  could  it 
piovide  the  savings  associated  with  an  increase  in  MTBF.  Con- 
sequently, the  R§M  Division  could  not  evaluate  the  cost  effective- 
ness of  contemplated  reliability  improvements. 

Accordingly,  Technology  Incorporated  was  awarded  a contract 
to  modify  the  RMS  model  by  adding  a cost  computation  to  determine 
total  operating  and  maintenance  costs  during  the  simulation  per- 
iod. To  execute  the  RMS  program  when  some  or  all  of  the  cost 
input  data  is  unavailable,  the  modified  program  was  designed  to 
bypass  the  cost  computation  on  command  of  an  input  switch.  The 
revised  model  is  called  the  R.MS  COST  model. 
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This  user's  manual  for  the  RMS  COST  model  contains  the  op- 
erating instructions,  the  cost  input  requirements,  a description 
of  the  Fortran  cost  subroutines,  a detailed  listing  of  the  modi- 
fications to  the  basic  RMS  code,  and  a sample  of  the  RMS  COST 
output.  This  manual  does  not  contain  instructions  or  input  data 
requirements  for  the  basic  RMS  model. 


2 


2. 


RMS  COST  MODEL  INITIALIZATION  AND  OPERATING  INSTRUCTIONS 


The  RMS  COST  model  program  and  the  Fortran  cost  subroutines 
SHFTHR  and  MCOST  must  be  incorporated  in  program  libraries  be- 
fore the  model  may  be  executed.  Each  program  is  initialized  by 
combining  the  program  source  decks  with  the  Job  Control  Language 
(JCL)  statements  shown  in  Figures  1 to  3.  The  subroutines  are 
compiled  and  loaded  as  object  modules  in  the  appropriate  program 
library  by  using  the  JCL  statements  in  Figures  1 and  2.  The  JCL 
in  Figure  3 is  designed  to  load  the  RMS  COST  model  onto  the  disk 
source  program  library.  Each  of  the  initialization  steps  requires 
less  than  IlOK  bytes  of  core  storage.  The  programs  need  be  re- 
executed  only  when  a source  program  is  changed,  and  then  only 
the  changed  program  need  be  rerun. 

The  cost  logic  was  added  to  the  GPSS  RMS  model  to  permit 
executing  the  program  with  or  without  the  cost  computations.  If 
the  cost  tables  are  to  be  output,  then  the  JCL  in  Figure  4 is 
used  in  conjunction  with  the  cost  input  data  cards.  To  execute 
the  6-month  OH- 58  demonstration  model  with  cost  computations  re- 
quired 300K  bytes  of  core  storage  and  a run  time  of  the  central 
processing  unit  of  about  3.5  minutes.  The  JCL  in  Figure  5 should 
be  used  when  executing  the  model  without  the  cost  data. 

To  execute  the  RMS  COST  model  ’./ith  the  cost  computations, 
the  SAVEVALUE  1630  must  be  initialized  at  zero.  The  cost  card 
data  must  be  in  the  sequence  called  for  in  Section  3.3,  Input 
Data  Card  Sequence,  and  be  added  to  the  JCL  in  Figure  4.  To 
execute  the  model  without  the  cost  computations,  SAVEVALUE  1630 
must  be  initialized  at  one. 


//FW5BNB  JOB  (aT0«,F09J,7, 1 10), 'RMS-SHFTHR' .BFGIONinOK 
//aTEPl  EXFC  UMSTESTS.PARMs'FORTGPCUFwbRNHO?) ' 

//srsuN  00 

ALIAS  SHFTHR 
//srsiN  00  • 

SHFTHR  SUHROUTINF  SOURCE  DECK 

/* 

// 


Figure  1.  Job  Control  Language  for  Adding  the  SHFTHR 
Subroutine  to  Disk 
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//FH5BNB  JOB  (2T0«fFO93«7«1 10), 'RMS'MCOST* ,RFGION«l lOK 
//STCPl  exEC  LMSTESTS.PAffM’j'FORTGPCUFHSRNHOl)  ' 

//SVSLIN  OD 

ALIAS  MCgST 
//SVSIN  00  • 


MC08T  SUBROtlTIRE  SOURCE  DECK 


/* 

// 

Figure  2.  Job  Control  Language  for  Adding  the  MCOST 
Subroutine  to  Disk 


//PNSSN8  JOB,  (?T00,F09S,7,  MO), 'RMS-SOURCE' fHEGIORBllOK 
//STEP)  EXFC  LMSTE3TS,P.RM«'PU(FnSBNB0S) ' 

//SVSIN  00  * 

./  ADO  NAME«FMSRNR03 

</  NUMBER  NENl«IOO,INCRslOO 

RMS-COST  PROGRAM  SOURCE  OFCK 

t* 

// 

Figure  3.  Job  Control  Language  for  Adding  the  RMS -COST 
Source  Deck  to  Disk 


//FR5BNB 

JOB 

(?Tnq,FnR3,7, 400), 'PMS-CPST' ,R) GIDNsSOOk 

//CHG 

FXEC 

LMSTFSTS.PABMs'PtUFrtSBNHOT)  ' 

//8Y3IN 

on 

* 

./ 

CHANGE  N4MesE«3HNaO^,I.ISts4LL 

initial 

X1640.O 

//8TEP0J 

exec 

PROCsL"SrESTT,PA»MsP|iNCH 

//3Y8PUNCM 

00 

OSNsXAL  TGMTYflft,UNIT'.2J1u,SP4CFs{rYL  , (S,  1) ) . 

n 

n ISPs (.PASS) 

//OCSOUTOO 

no 

UNITsnlSK,0SUsXilSnilVCE,SP4CEs(rYL  , (S,?,  1 , ) ), 

u 

DCHs(«f  CF''sF,t«ECLs«0,BL’<STZEr8n; 

//8YSIN 

on 

F 

<,SHNMO  4 

//STEP02 

EXEC 

PH(ICsL“SPHnOS,P4HM*>G(Lk‘SOI)MMY,F*vSH»  H*  ) ' 

//STEP05 

EXFC 

PGMsOAGnt  V,PARMsC,UM£slS 

//STEPLIB 

00 

nSNs*.Srf  pnj.i  «S.SYSLYOO.UMIsP41u, 

// 

vni SHE Fs«,STFP02.l“S.SYSlMnn,DlSPs(nLP, Pi SS) 

//DOUTPUT 

00 

SYSUUTsA 

//OINTERO 

00 

UNlTsSYSOA.SPArFsfrYL, (S,  n ) 

//08YMTAH 

00 

UMTsSYS04,SPACEs(LYL,  (S,  I ) ) 

//OREPTGEN 

no 

UNITsSYSi)4,SP4r£s(CYU,(S,  J)) 

//DINTNORK 

00 

IINI  TsSYSOA  ,SPACF  s(CYU  , (S , 1)  ) , SF Pr n I M f Rfj 

//0JT*P1 

no 

OljMMY 

//0JTAP2 

on 

OUM'^Y 

//OJTAPJ 

00 

ou*<my 

//00NWM43T 

00 

OlJMlYY 

//0R03AVE 

no 

Oijmmy 

//OOPUNCW 

on 

SYsmirsg 

//OINPUTl 

00 

OSNsAXETGMTYHn.oiSPsdaO.OFl  f IF  ) 

//SY3U01JMP 

00 

SYsniitsA 

//FT06F001 

no 

SYSnOIsA 

//FTOSFOOl 

no 

* 

Ono^65SO 


rnsr  n«r4 


/♦ 

n 

Figure  4.  Job  Control  Language  for  Executing  RMS  with  COST  Logic 
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//rwSBNB  JOB  (2Tn«,f0<>J,7,500),'RMS',F;fCinN»^0P‘. 

//CH6  EXEC  LMSTESTS,p*Bm«'P0(EWSBNB05) ' 

//S7SIN  OD  * 

INITIAL  X16J0,t  00036350 

//8TEP01  EXEC  PROC«LNSTFSTS.PARM»pijNCH 

//SY8PUNCH  00  03N«lAEIGHTV80»UNITs23t«.3P4CEP(CVL,(5»l)). 

N 0I3PK.PAS3) 

//0C30UT00  00  UNIT«013K,0aN>&t30URCE>3PACEs(CYL, (Sf?»17)), 

//  OCB»(RECEM«F,LRFCL«80»BLK3IZE«80) 

//3V8IN  00  * 

FNSBNH03 

//8TEP02  EXEC  PR0C»LMSPR00S,PARM*'G(LM30UMMY»FW5BNB*)  ' 

//8TEP01  EXEC  PGMi0AC01V,PARM»C,TIME»15 

//8TEPLIB  00  0SN«*,3TEP02.L»'' .SYSUMOO»UNIT»231fl. 

//  VOL«REF«*.3TEP02,LMS.3Y3LMOO,OI3P«(OLO,PASS) 

//OOUTPUT  00  3Y30UTmA 

//OINTERO  00  UNIT»3Y30A,3PACE»(CYL»(5.n) 

//OSYMTAB  DO  UNIT«3YS0A,3PACE»(CYL, (5. 1)) 

//0BEP7GEN  00  UNIT«3YSDA,SPACE*(CYU.(5.n) 

//OINTNORK  00  UNIT«3Y3D4,3PACE*(CYL,(5.n).SEP*OIF’TERO 

//OJTAPI  DO  dummy 

/X0JTAP2  00  dummy 

//0JTAP5  DO  dummy 

//OONNMAST  00  DUMMY 

//0R03AVE  00  DUMMY 

//OOPUNCH  00  3Y30UT»8 

//OINPUTl  DO  03N«»iEIGHTYflO,OISPs(OLO, DELETE) 

//8Y8U0UMP  DO  SY30UT«4 

/• 

// 


Figure  5.  Job  Control  Language  for  Executing  RMS  Without  COST  Logic 
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3. 


RMS  COST  INPUT  REQUIREMENTS 
Introduction 


3.1 

The  number  of  input  cards  required  to  execute  the  RMS  COST 
model  is  determined  by  the  number  of  MOS  levels,  subsystems,  and 
components  in  the  simulation. 

One  card  must  be  provided  for  each  MOS,  subsystem,  and  com- 
ponent, and  the  card  format  must  meet  the  specifications  described 
in  Section  3.2,  the  Input  Data  Card  Parameters.  An  additional 
input  data  card,  the  flight  cost  card,  must  always  be  provided  as 
the  last  card  of  the  input  deck.  A card  with  999  in  columns  1 to 
3 must  be  provided  for  each  set  of  input  cards  (AVUM,  AVIM,  DEPOT, 
SUBSYSTEM  and  COMPONENT) . The  999  card  follows  the  last  cost  data 
card  for  each  set.  If  no  cost  data  is  input  for  a given  set,  the 
999  must  still  be  used.  The  minimum  number  of  cost  input  cards  to 
execute  the  RMS  COST  model  is  six,  five  cards  with  999  and  the 
flight  cost  card. 

No  cost  input  cards  are  required  to  execute  the  RMS  COST 
model  without  the  cost  computations. 


3.2  Input  Data  Card  Parameters 

CD  AVUM  MOS  INPUT  CARD  (Figure  6) 

Columns  1-3  - MOS  Number:  The  number  is  right 

justified;  column  1 is  zero  or  blank.  The  value 
must  be  greater  than  zero  and  less  than  or  equal 
to  15.  The  RMS  logic  currently  limits  the  number 
of  MOS  levels  to  11. 

Columns  4-15  - MOS  Title:  Expressed  in  alpha 

or  numeric  characters,  this  title  is  left  justi- 
fied. The  titles  appear  in  the  Inspection  Cost 
and  Inspection  and  Unscheduled  Maintenance 
Personnel  Cost  tables. 

Columns  16-22  - Average  Hourly  Wage:  The  wage 

value  is  right  justified  with  a decimal  point 
in  column  20.  Zero  is  an  acceptable  value. 

Columns  23-29  - Average  Hourly  Overhead  Rate: 

The  rate  value  is  right  justified  with  a decimal 
point  in  column  27.  Zero  is  an  acceptable  value. 

Columns  30-36  - Consumable  Cost  per  Event:  This 

cost  is  right  justified  witli  a decimal  point  in 
column  34.  Zero  is  an  acceptable  value.  This 
cost  covers  the  tools,  rags,  and  miscellaneous 
items  associated  with  the  MOS  level.  The  program 
adds  this  cost  every  time  the  mos  level  is  called  for. 
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Figure  6.  AVUM  MOS  Input  Card  Format 


Columns  37-39  - Overtime  Factor:  0.0  to  9.9. 

Overtime  Rate  = Ave.  Hourly  Wage  * Overtime  Factor 


(2)  AVIM  MOS  INPUT  CARD  (Figure  . This  card  is  the 
same  as  the  AVUM  MOS  INPUT  card  but  does  not  in- 
clude the  overtime  factor.  The  AVIM  MOS  TITLE 
is  not  required  for  program  operation. 


(3)  DEPOT  MOS  INPUT  CARD  (Figure  8) . This  card  is 
the  same  as  the  AVUM  MOS  INPUT  card  but  does  not 
include  the  overtime  factor.  The  Depot  MOS 
title  is  not  required  for  program  operation. 


(4)  SUBSYSTEM  INPUT  CARD  (Figure  9). 

Columns  1-3  - Subsystem  Number:  This  number  is 

right  justified  and  must  be  greater  than  0 and 
less  than  or  equal  to  25.  Column  1 must  be  zero 
or  blank.  The  assigned  subsystem  number  must  agree 
with  the  number  in  the  basic  RMS  input  (FUNCTION  46 
'ELEMENTS  TABLE  CODE'). 

Columns  4-15  - Subsystem  Title:  Expressed  in  alpha 

or  numeric  characters,  this  title  is  left  justified. 
The  titles  appear  in  the  Subsystem  Maintenance 
Action  table. 

Columns  16-18  - Number  of  Components  in  Subsystem: 

As  any  number  from  1 to  299,  this  number  is  right 
justified. 


(5)  COMPONENT  INPUT  CARD  (Figure  10) 

Columns  1-3  - Component  Number:  Right  justified, 

the  numbers  must  be  1 to  n in  sequential  order 
(where  n is  less  than  or  equal  to  299).  The  as- 
signed subsystem  number  and  subsystem  component 
number  must  agree  with  the  number  in  the  basic  RMS 
input  (FUNCTION  46  'ELEMENTS  TABLE  CODE'). 

Columns  4-5  - Subsystem  Number:  As  any  number 

from  1 to  25,  this  number  is  right  justified. 

Columns  6-13  - Component  Cost:  The  cost  value 

is  right  justified  with  a decimal  point  in  column 
11.  Zero  is  an  acceptable  value. 
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gure  8.  Depot  MOS  Input  Card  Format 


^ure  9.  Subsystem  Input  Card  Format 
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Columns  14-21  - Salvage  Value:  This  value  is 

right  justified  with  a decimal  point  in  column 
19.  Zero  is  an  acceptable  value. 

Columns  22-28  - Transportation  Cost  AVUM  to  AVIM: 
This  value  is  right  justified  with  a decimal  point 
in  column  26.  Zero  is  an  acceptable  value. 

Columns  29-35  - Transportation  Cost  AVIM  to  DEPOT: 
This  value  is  right  justified  with  a decimal  point 
in  column  33.  Zero  is  an  acceptable  value. 

Columns  36-42  - Consumption  Cost:  This  value  is 

right  justified  with  a decimal  point  in  column  40. 
Zero  is  an  acceptable  value.  This  cost  covers  the 
associated  component  materials  (hardware  and  POL) 
consumed  during  an  AVIM  or  depot  repair. 

Columns  43-47  - AVUM  Cycle  Time:  Elapsed  time 

(hours)  from  removal  of  component  to  completion 
of  repair  at  AVUM  and  return  to  inventory.  The 
time  value  is  right  justified.  Zero  is  an  ac- 
ceptable value. 

Columns  48-52  - AVIM  Cycle  Time:  Elapsed  time 

(hours)  from  removal  of  component  to  completion 
of  repair  at  AVIM  and  return  to  inventory.  The 
time  value  is  right  justified.  Zero  is  an  ac- 
ceptable value. 

Columns  53-57  - DEPOT  Cycle  Time:  Elapsed  time 

(hours)  from  removal  of  component  to  completion 
of  repair  at  depot  and  return  to  inventory.  The 
time  value  is  right  justified.  Zero  is  an  accept- 
able value. 


(6)  FLIGHT  COST  INPUT  CARD  (Figure  11) 

Columns  1-7  - Depreciation  Rate  per  Flight  Hour: 
This  rate  is  right  justified  with  a decimal  point 
in  column  5.  Zero  is  an  acceptable  value. 

Columns  8-12  - Flight  Cost  Per  Hour:  Flight  costs 

exclude  depreciation  and  POL.  This  cost  is  right 
justified  with  a decimal  point  in  column  10.  Zero 
is  an  acceptable  value. 

Columns  13-17  - Consumable  Cost  per  Flight  Hour: 
POL  costs.  This  cost  is  right  justified  with  a 
decimal  point  in  column  15.  Zero  is  an  acceptable 
’■clue . 
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Figure  11.  Flight  Cost  Input  Card  Format 


3. 3 Input  Data  Card  Sequence 

(1)  AVUM  MOS  INPUT:  The  maximum  number  of  input 

cards  is  15.  There  is  no  minimum  number  of  cards. 

(2)  999  in  columns  1-3.  This  card  is  always  required. 

(3)  AVIM  MOS  INPUT:  The  maximum  number  of  input 

cards  is  15.  There  is  no  minimum  number  of 
cards. 

(4)  999  in  columns  1-3,  This  card  is  always  required. 

(5)  DEPOT  MOS  INPUT:  The  maximum  number  of  input 

cards  is  15.  There  is  no  minimum  number  of  cards. 

(6)  999  in  columns  1-3.  This  card  is  always  required. 

(7)  SUBSYSTEM  INPUT:  The  maximum  number  of  input 

cards  is  25.  There  is  no  minimum  number  of  cards. 

(8)  999  in  columns  1-3.  This  card  is  always  required. 

(9)  COMPONENT  INPUT:  The  maximum  number  of  input  cards 

is  299.  There  is  no  minimum  number  of  cards. 

(10)  999  in  columns  1-3.  This  card  is  alway*:  required. 

(11)  FLIGHT  COST  INPUT:  This  card  is  always  required 

and  is  the  last  input  data  card. 


Table  I lists  the  complete  set  of  input  data  cards  for  the 
RMS  COST  model  demonstration. 


3. 4 Error  Codes 

Error  messages  are  printed  when  the  maximum  number  of  input 
cards  for  a given  type  is  exceeded. 


I 


i 


i ? 


s 


Error  Code 

Type  Input 

Maximum 

01 

AVUM  MOS 

15 

02 

AVIM  MOS 

15 

03 

DEPOT  MOS 

15 

04 

SUBSYSTEM 

25 

05 

COMPONENT 

299 

I'.'hen  the  maximum  is  exceeded,  the  data  cards  will  continue 
to  be  read  for  the  card  type  input;  but  the  values  will  not 
be  stored  in  the  array.  After  a card  containing  999  is  encoun- 
tered, the  routine  to  store  the  next  card  type  input  is  entered 
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TABLE  I.  RMS  COST  MODEL  CARD  INPUT 


MOS 

s 

MOS 

9 

MOS 

10 

MOS 

11 

MOS 

12 

MOS 

13 

MOS 

19 

MOS 

1 

MOS 

2 

MOS 

3 

MOS 

4 

MOS 

5 

MOS 

6 

MOS 

7 

MOS 

8 

MOS 

9 

MOS 

10 

MOS 

11 

MOS 

12 

MOS  I 


MOS 

MOS 

MOS 

MOS 

MOS 

MOS 

MUS 

MOS 


U.65 
tl.6S 
It  .63 
11. *3 
11.63 
11.63 
11.63 
11.63 
11.63 
11.63 
11.63 
11.63 
11.63 
11.63 

11.63 

11.63 

11.63 

11.63 

11.63 

11.63 

11.63 

11.63 

11.63 

11.63 

11.63 

11.63 

11.63 

11.63 

11.63 

11.63 

11.63 

11.63 

11.63 

11.63 

11.63 


000.00 

000.00 

000.00 

000.00 

000.00 

000.00 

000.00 

000.00 

000.00 

000.00 

000.00 

000.00 

900.00 

000.00 

000.00 

000.00 

000.00 

000.00 

000.00 

000.00 

000.00 

000.00 

000,00 

000.00 

000.00 

000,00 

000.00 

000.00 

000,00 

000,00 

000.00 

000,00 

000.00 

000.00 

000.00 


000.00  1.5 
000.00  1.5 
000.00  1.5 
000.00  1.5 
000.00  1.5 
000.00  1.5 
000.00  1.5 
000.00  1.5 
000.00  1.5 
000.00  1.5 
000.00  1.5 
000. 00  1.5 
000.00  1.5 
000.00  1.5 

000.00 

000.00 

000.00 

000.00 

000.00 

000.00 

000.00 

000.00 

000,00 

000.00 

000,00 

000,00 

000,00 

000,00 

000,00 

000,00 

000,00 

000,00 

000,00 

000,00 

000.00 


OOIOM  A/C  MOS 

ooaorr  a/c  mos 

003MCRIOOIC  MOS 
OOAPMEFUSHT 
0050AILY  MOS 
0060M  A/c  MOS 
007AVUMr  MOS  7 
OOSAVUM 
009AVUM 
OlOAVUM 
eilAVUM 
012AVUM 
013AVUM 
OlAAVUM 
996 

OOIAVIM 
OOZAVtM 
OeSAVIM 
OOAAVIM 
OOSAVIM 
OOAAVIM 
007AV1M 
OOSAVIM 
009AVIM 
OlOAVIM 
OllAVIM 
012AVIM 
999 

OOlOEFOT 
0020EFOT 
OOSOEFOT 
OOAOEFOT 
0050EFOT 
OOAOEFOT 
0070EPOT 
0080EPOT 
0090EPOT 
999 

OOISTRUCTUIIC  Oil 
0021.AN0IN6  CCAM003 
003EN6INC  AS3V  015 
OOOROTAT.COMPONOSl 
OOSHVORAUL  SYS  009 
006IMSTRUMEMTS  010 
007ELECTR1CAJ.  009 
OOSFUEL  009 

009FLT  CONTROLS007 
OlONAV/COM  COMPOl? 
999 


00101 

669.00 

199,20 

0,00 

00201 

190.00 

92.00 

0.00 

0030118000.00 

5900.00 

0,00 

00901 

313.00 

93.90 

0,00 

00501 

562.00 

168.60 

0.00 

00601 

658.00 

197,90 

0,00 

00701 

75.00 

22.50 

0.00 

00801 

389.00 

116.70 

0.00 

00901 

910,00 

123,00 

0,00 

01001 

809,00 

292.70 

0,00 

01101 

1007,00 

302,10 

0,00 

01202 

202.00 

60.60 

0,00 

01302 

975,00 

192.50 

0.00 

01402 

6,00 

1 .80 

0,00 

0,00 

0,00 

71 

71 

71 

0.00 

0,00 

111 

111 

111 

0.00 

0,00 

63 

63 

63 

0.00 

0.00 

91 

91 

91 

0.00 

0,00 

59 

59 

59 

0.00 

0,00 

59 

59 

59 

0,00 

0,00 

61 

61 

61 

0,00 

0.00 

65 

65 

65 

0.00 

0,00 

63 

63 

63 

0.00 

0.00 

85 

85 

85 

0.00 

0,00 

62 

6? 

62 

0,00 

0,00 

78 

78 

78 

0.00 

0,00 

6b 

66 

66 

0.00 

0.00 

92 

9? 

9? 
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01501 

95.00 

28.50 

0.00 

0.00 

0.00 

128 

128 

128 

01601 

1210.00 

363.00 

0.00 

0.00 

0.00 

104 

104 

104 

0170317562.00  ' 

5268.60 

0.00 

0.00 

0.00 

63 

63 

63 

01803 

7427.00  . 

2228.10 

0,00 

0.00 

0.00 

62 

62 

62 

01903 

450.00 

135.00 

0.00 

0.00 

0.00 

62 

62 

62 

02003 

3850.00 

1155.00 

0.00 

0.00 

0.00 

103 

103 

103 

02103 

4.50 

1.35 

0,00 

0.00 

0.00 

90 

90 

90 

02203 

50.00 

15.00 

0.00 

0.00 

o.co 

66 

66 

66 

02303 

770.00 

231.00 

0.00 

0.00 

0.00 

HI 

8! 

61 

02403 

440.00 

132.00 

0,00 

0.00 

0,00 

66 

66 

66 

02503 

1010.00 

503.00 

0,00 

0.00 

0.00 

68 

68 

68 

02603 

684.00 

205.20 

0,00 

0.00 

0.00 

69 

69 

69 

02703 

10.00 

3.00 

0.00 

0.00 

0.00 

61 

61 

61 

02803 

215.00 

64.50 

0,00 

0.00 

0.00 

76 

76 

76 

02903 

115.00 

34.50 

0,00 

0,00 

0.00 

71 

71 

71 

03004 

260.00 

78.00 

0.00 

0.00 

0.00 

92 

9? 

92 

03104 

46.00 

15.80 

0,00 

0.00 

0.00 

83 

83 

.33 

03204 

1310.00 

393.00 

0,00 

0,00 

0.00 

88 

88 

88 

03304 

45,00 

13.50 

0.00 

0,00 

0.00 

58 

58 

58 

03404 

78.00 

23.40 

0.00 

0.00 

0.00 

65 

65 

65 

03504 

120.00 

36.00 

0,00 

0.00 

0,00 

58 

58 

58 

03604 

2020.00 

606.00 

0.00 

0.00 

0.00 

81 

81 

81 

03704 

2550.00 

765.00 

0.00 

0.00 

0.00 

69 

69 

69 

03804 

20,00 

6.00 

0,00 

0.00 

0.00 

83 

85 

83 

03904 

50,00 

15.00 

0,00 

0,00 

0.00 

86 

86 

86 

04004 

7850.00 

2355,00 

0,00 

0,00 

0.00 

136 

138 

158 

04104 

11.00 

3.50 

0.00 

0,00 

0,00 

69 

69 

69 

04204 

366.00 

109,00 

0,00 

0,00 

0,00 

133 

133 

133 

04304 

20,00 

6,00 

0,00 

0.00 

0,00 

71 

71 

71 

04404 

1035,00 

310.50 

0,00 

0,00 

0,00 

98 

98 

98 

04504 

482,00 

144,60 

0,00 

0,00 

0,00 

62 

6? 

62 

04604 

16,00 

4,80 

0,00 

0,00 

0,00 

64 

64 

64 

04704 

13.00 

3.90 

0.00 

0 , > 0 

C,00 

73 

73 

73 

04804 

9,00 

2,70 

0,00 

0.00 

0,00 

91 

91 

91 

04904 

100,00 

30.00 

0,00 

0,00 

0,00 

74 

74 

74 

05004 

1350,00 

405.00 

0.00 

0,00 

0,00 

138 

138 

138 

05104 

20,00 

6.00 

0,00 

0.00 

0,00 

128 

128 

128 

05204 

230,00 

69,00 

0,00 

0.00 

0,00 

58 

58 

58 

05304 

195,00 

58.50 

o.cc 

0,00 

n.oo 

98 

98 

98 

05404 

1.00 

0,30 

0,00 

0,00 

0,00 

65 

65 

65 

05504 

110,00 

33.00 

0,00 

0,00 

0,00 

108 

108 

108 

05604 

55,00 

16,50 

0,00 

0,00 

0,00 

94 

94 

94 

05704 

25,00 

7.50 

0,00 

0.00 

0.00 

76 

76 

76 

05804 

280,00 

84.00 

0.00 

0.00 

0.00 

73 

75 

73 

05904 

130,00 

39.00 

0,00 

0,00 

0,00 

61 

61 

61 

06004 

50,00 

15.00 

0.00 

0,00 

0,00 

108 

108 

1 08 

06105 

230,00 

69.00 

0,00 

0.00 

o.no 

63 

63 

63 

06205 

15,00 

4.50 

0,00 

0.00 

0,00 

63 

63 

63 

06305 

863,00 

258.90 

0,00 

0.00 

0,00 

63 

63 

65 

06405 

150,00 

U5.00 

0,00 

0,00 

0.00 

66 

66 

66 

06506 

155.00 

46.50 

0,00 

0,00 

0,00 

138 

138 

138 

06606 

134.00 

40.20 

0,00 

0,00 

0,00 

108 

1 08 

108 

06706 

119.00 

35.70 

0,00 

0,00 

0,00 

99 

99 

99 

06806 

140,00 

42.00 

0,00 

0.00 

0,00 

100 

100 

100 

06906 

486.00 

145,80 

0,00 

0,00 

0,00 

138 

138 

136 

07006 

67.00 

20,10 

0.00 

0.00 

0.00 

59 

59 

59 

07106 

195,00 

58.50 

0,00 

0,00 

0,00 

68 

68 

68 

07206 

110,00 

33,00 

0,00 

0,00 

0,00 

59 

59 

59 

07306 

280,00 

84.00 

0,00 

0,00 

0,00 

61 

61 

6 1 

07406 

27,00 

8.10 

0.00 

0,00 

0,00 

58 

58 

58 

07507 

18,00 

5.40 

0.00 

0,00 

0,00 

56 

58 

58 

07607 

253.00 

75.90 

0,00 

0,00 

0,00 

103 

10% 

103 

07707 

46,00 

13.80 

0,00 

0,00 

0.00 

98 

98 

98 

17 


07807 

07007 

08007 
08107 
00207 
08307 

08008 
08508 
08608 
00700 
00009 
08909 

09009 
09109 
09209 
09309 
09409 
09510 
09610 
09710 

09010 
09910 
10010 
10110 
10210 
10310 
10410 
10510 
10610 
999 
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42.00 

12.60 

0.00 

376.00 

112.80 

0.00 

300.00 

90.00 

0.00 

3.00 

0.90 

0,00 

1.50 

0.45 

0.00 

4.00 

1.20 

0.00 

3.00 

0.90 

0.00 

23.00 

6.90 

0.00 

595.00 

178.50 

0.00 

115.00 

34.50 

0,00 

530.00 

159.00 

0.00 

33.00 

9.90 

0.00 

95.00 

28.50 

0.00 

110.00 

33.00 

0.00 

116.00 

34.80 

0.00 

120.00 

36.00 

0.00 

834.00 

250.20 

0.00 

263.00 

78,90 

0.00 

2625.00 

787,50 

0,00 

200.00 

60.00 

0,00 

550.00 

165.00 

0.00 

2000.00 

624.00 

0.00 

3150.00 

945.00 

0,00 

3413.00 

102.59 

0,00 

2703.00 

834.90 

0,00 

4200.00 

126.00 

0,00 

4250.00 

127,50 

0,00 

800.00 

24.00 

0,00 

7800.00 

2340.00 

0.00 

Concluded 


0.00 

0.00 

50 

58 

58 

0.00 

0.00 

76 

76 

76 

0.00 

0.00 

68 

68 

68 

0.00 

0.00 

71 

71 

71 

0.00 

0,00 

58 

58 

58 

0.00 

0.00 

108 

108 

108 

0.00 

0.00 

67 

67 

67 

0.00 

0.00 

69 

69 

69 

0.00 

0.00 

67 

67 

fc7 

0.00 

0.00 

73 

73 

73 

0,00 

0.00 

58 

58 

58 

0,00 

0,00 

61 

61 

61 

0.00 

0.00 

81 

81 

81 

0.00 

0,00 

65 

65 

65 

0.00 

0.00 

70 

70 

70 

0.00 

0.00 

71 

71 

71 

0.00 

0.00 

73 

73 

75 

0,00 

0.00 

68 

68 

68 

0.00 

0.00 

88 

88 

88 

0.00 

0.00 

88 

88 

88 

0.00 

0.00 

60 

60 

60 

0,00 

0.00 

88 

88 

88 

0.00 

0,00 

60 

60 

60 

0.00 

0.00 

75 

73 

73 

0.00 

0,00 

60 

68 

68 

0,00 

0,00 

77 

77 

77 

0,00 

0.00 

73 

73 

73 

0.00 

0,00 

108 

108 

108 

0.00 

0.00 

60 

60 

60 
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FORTRAN  COST  SUBROUTINES 


4 . 1 MCOST  Subroutine 

4.1.1  MCOST  Subroutine  Description 

When  the  RMS  model  is  executed  with  cost  alternatives 
(SAVEVALUE  1630  = 0) , the  MCOST  subroutine  module  is  loaded  into 
core  for  the  duration  of  the  simulation,  and  the  GPSS  HELPA  block 
serves  as  the  interface  between  the  RMS  model  and  the  Fortran 
subroutine. 

The  MCOST  subroutine  consists  of  six  separate  routines: 
Initialization,  Maintenance  Action,  Inspection  Cost,  Maintenance 
Report,  Subsystem  Report,  and  Flight  Hour  Report. 

The  GPSS  program  interfaces  with  MCOST  before  any  trans- 
actions are  generated.  This  action  causes  the  Fortran  arrays  to 
be  initialized  and  the  cost  input  data  cards  to  be  read.  Upon 
completion  of  this  step,  control  is  returned  to  the  main  program 
to  begin  the  simulation.  The  subroutine  is  not  called  for  again 
until  a maintenance  action  occurs  or  the  simulation  interval  is 
completed. 


During  the  simulation  period  the  subroutine  is  called 
for  to  tally  the  subsystem  maintenance  actions  and  to  compute 
maintenance  costs.  Each  maintenance  action  is  given  an  action 
code  number  (see  Table  II)  which  directs  the  transaction  to  the 
appropriate  accounting  computation-  in  the  Maintenance  Action 
routine. 


TABLE  II.  MAINTENANCE  ACTION  CODE  DEFINITIONS 


Code 


Description 


01 

02 

03 

04 

05 

06 
09 


AVUM  on  aircraft  repair 
AVUM  remove  and  replace 
AVUM  off  aircraft  repair 
AVIM  off  aircraft  repair 
Depot  maintenance 
Condemned  component 
Overtime  for  AVUM  action 


The  Maintenai.ce  Action  routine  assembles  the  informa- 
tion essential  to  the  Subsystem  Maintenance  Action  table.  The 
number  of  occurrences  of  each  maintenance  event  are  counted  in 
array  KNTRAY.  Each  part  used  at  the  AVUM,  AVIM,  or  depot  is  tabu- 
lated in  array  PIPRAY  and  later  used  to  determine  the  cost  of 
maintaining  the  pipeline. 


The  man-hours.  MOS,  subsystem,  and  component  of  the 
overtime  transactions  (IACT=09)  are  passed  to  the  Maintenance 
routine  and,  when  combined  with  the  man-hour  rate  and  overtime 
factor  from  the  AVUM  input  card,  arc  used  to  compute  overtime 
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costs  for  inclusion  in  the  appropriate  subsystem  maintenance 
cost. 


When  a transaction  representing  an  AVUM  secondary  work 
center  or  a multiple-shif ^ action  enters  the  subroutine  from  the 
RMS  Unscheduled  Maintenance  routine,  the  parameter  IVALUE  (5)  is 
set  to  999.  This  parameter  indicates  that  the  event  counters  had 
previously  been  incremented  for  the  transaction  by  the  primary 
work  center  or  first. shift  of  the  multiple-shift  action  and  need 
not  be  recounted  by  the  secondary  work  center  or  the  next  shift. 

The  transaction  parameters  for  the  Maintenance  Action 
routine  include  subsystem  number;  component  number;  MOS  number; 
action  code;  number  to  indicate  time  change  component,  secondary 
work  center,  or  multiple-shift  action;  and  maintenance  man-hours. 

When  the  simulation  interval  is  completed,  the  MCOST 
subroutine  is  called  from  the  Data  Compilation  routine  with  the 
first  parameter  of  the  transaction  having  a value  set  to  the  MOS 
level  plus  100.  This  value  indicates  that  control  is  to  be 
passed  to  the  Inspection  Cost  routine. 

To  compute  the  values  for  the  Inspection  Cost  table,  the 
RMS  COST  model  passes  to  MCOST  two  separate  sets  of  transaction 
parameters  for  each  MOS:  first,  the  values  for  the  MOS  consumable 

cost  computation,  namely,  the  number  of  preflight,  postflight, 
daily,  intermediate  (PMI),  and  periodic  (PMP)  inspections,  and 
second,  the  number  of  man-hours  for  each  of  the  same  inspection 
events.  After  the  computations  for  the  i-iOS  are  completed,  control 
is  returned  to  the  RMS  and  the  cycle  is  continued  until  the  values 
for  the  last  MOS  have  been  passed.  After  the  Inspection  table  is 
printed,  a switch  (ISWT)  is  set  which  causes  the  next  transaction 
passed  from  RMS  to  branch  to  the  Maintenance  Report  routine. 

The  Maintenance  Report  routine,  which  prints  the  Inspec- 
tion and  Unscheduled  Maintenance  Personnel  Cost  table,  receives 
the  following  data  from  the  calling  program:  AVUM  MOS  number, 

available  man-hours,  man-hours  expended,  and  overtime  hours.  The 
direct  labor  costs  are  determined  from  the  expended  maintenance 
hours  (time  directly  spent  maintaining  a component),  the  hours 
spent  on  inspection  (array  PTOTP) , and  the  AVUM  man-hour  rates. 

The  indirect  labor  costs  are  obtained  from  the  total  cost  of 
available  manpower  less  the  direct  labor  cost.  The  overtime  cost 
is  determined  from  the  number  of  overtime  hours,  the  AVUM  man-hour 
rates,  and  the  overtime  factor  from  the  AVUM  input  card.  Control 
is  returned  to  the  RMS  COST  model  which  continues  passing  data 
until  the  last  MOS  has  been  accounted  for.  When  the  MOS  level 
reaches  IS,  the  table  is  printed  and  the  routine  control  switch  is 
set  so  that  the  next  transaction  will  enter  the  Subsystem  Report 
routine. 


The  RMS  COST  model  passes  the  number  of  simulation  hours 
to  the  Subsystem  Report  routine.  This  action  initiates  the  cost 
computations  for  the  Subsystem  Maintenance  Action  table.  The 
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values  which  were  accumulated  in  the  Maintenance  Action  routine 
are  used  to  determine  the  pipeline  and  maintenance  level  costs  by 
subsystem.  After  the  table  is  printed  and  before  returning  con- 
trol to  the  RMS  COST  model,  the  logic  control  switch  is  set  to 
branch  to  the  Flight  Hour  Report  routine  at  the  next  call. 

The  parameters  passed  to  the  Flight  Hour  Report  routine 
for  the  RMS  COST  Summary  table  are  as  follows:  flight  hours, 

missions  completed,  simulation  interval,  percentage  of  uptime/ 
total  time,  percentage  of  missions  flown/missions  called,  and 
percentage  of  missions  computed/missions  flown.  The  values  from 
the  Flight  Cost  input  card,  which  are  read  by  the  Flight  Hour 
Report  routine,  are  used  with  the  above  parameters  to  produce  the 
RMS  COST  summary  table. 


4ol.2  HCOST  Subroutine  Arrays 

AVIM  (15,6):  The  AVIM  MOS  input  cards  are  stored 

in  this  matrix  where  rows  1 to  15  represent  MOS 
numbers;  columns  1 to  3 contain  the  MOS  title; 
and  columns  4,  5,  and  6 contain  the  average  hourly 
wage,  the  average  hourly  overhead  rate,  and  the 
average  consumable  cost  per  event,  respectively. 

AVUM  (15,7):  This  array  has  the  same  format  as 

that  for  the  AVIM  array  except  for  an  additional 
column  7 which  contains  the  overtime  factor. 

CARDIN  (8):  The  input  card  dat.  are  read  into 

this  array  before  they  are  stor.,Q  in  their  appro- 
priate locations. 

CSTRAY  (25,4):  In  this  matrix,  rows  1 to  15  repre- 

sent subsystem  ID  numbers,  and  columns  1 to  4 con- 
tain various  types  of  costs  as  follows: 


Column  Description 

1 AVUM  Subsystem  Maintenance  Action  Costs 

2 AVIM  Subsystem  Maintenance  Action  Costs 

3 Depot  Subsystem  Maintenance  Action  Costs 

4 Condemned  component  and  Time  Change 

Costs 


DEPOT  (15,6):  This  array  has  the  same  format  as 

that  for  the  AVIM  array. 

EVENT  fl5,6):  In  this  matrix,  rows  1 to  15  repre- 

sent MOS  levels,  and  columns  1 to  6 contain  various 
inspection  costs  as  follows: 
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Column 


Description 


1 Pre-flight  inspection  cost 

2 Post- flight  inspection  cost 

3 Daily  inspection  cost 

4 PMI  inspection  cost 

5 PMP  inspection  cost 

6 Total  inspection  cost 


IVALUE  (6):  This  array  contains  parameter  values 
passed  from  RMS. 

KNTRAY  (25,6):  In  this  matrix,  rows  1 to  25  repre- 
sent subsystem  ID  numbers,  and  columns  1 to  6 tally 
types  of  maintenance  as  follows: 


Column 


Description 


01 

02 

03 

04 

05 

06 


AVUM  on  aircraft  repair 
AVUM  remove/replace 
AVUM  off  aircraft  repairs 
AVIM  off  aircraft  repairs 
Depot  repairs 

Condemned  component  and  time 
change  component 


PART  (299,9): 

In  this  matrix,  rows  1 to  299  repre- 

sent  component 

ID  numbers,  and  columns  1 to  9 

contain  the  component  input  card  data  as  follows: 

Column 

Description 

01 

Subsystem  number 

02 

Component  replacement  cost 

03 

Salvage  value 

04 

Transportation  cost  from 
AVUM  to  AVIM 

05 

Transportation  cost  from 
AVIM  to  Depot 

06 

Consumption  cost  of  associated 
parts  and  materials 

07 

AVUM  cycle  time 

08 

AVIM  cycle  time 

09 

Depot  cycle  time 

PCNT  (5):  This  array  is  an  output  matrix  which 
contains  the  percentages  for  the  Subsystem  Main- 
tenance Action  table. 


PIPE  (25):  In  this  array,  the  matrix  cells  contain 

values  for  the  subsystem  pipeline  costs. 
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PIPRAY  (299,3):  In  this  matrix,  components  having 

off  aircraft  repairs  are  tallied  by  component  num- 
ber and  repair  location.  Rows  1 to  299  represent 
component  ID  numbers,  and  columns  1 to  3 represent 
AVUM,  AVIM,  and  Depot  maintenance,  respectively. 
These  values  are  used  to  determine  pipeline  inven- 
tory costs. 

PTOT  (6) : This  array  contains  the  total  inspection 

costs  by  inspection  level  as  follows: 


Row  Description 

1 Pre- flight  inspection  cost 

2 Post-flight  inspection  cost 

3 Daily  inspection  cost 

4 PMI  inspection  cost 

5 PMP  inspection  cost 

6 Total  inspection  cost 


PTOTP  (16):  In  this  array,  the  matrix  cells  con- 

tain the  numbers  of  inspection  man-hours  by  AVUM  MOvS. 

RVALU  (4):  In  this  array,  the  rows  are  set  to  the 

parameter  values  of  IVALUE  for  use  as  floating- 
point numbers. 

RVALUE  (5):  In  this  array,  the  rows  are  set  to  the 

parameter  values  of  IVALUE  for  use  as  floating- 
point numbers. 

SUBSYS  (25,4):  Subsystem  input  cards  are  stored 

in  this  array.  Rows  1 to  25  represent  subsystem 
ID  numbers.  Columns  1 to  3 conta.in  the  subsystem 
title,  and  column  4 contains  the  number  of  com- 
ponents per  subsystem. 

SUMRY  (6,3):  In  this  array,  the  matrix  cells  con- 
tain the  values  for  the  RMS  Cost  Summary  table.  | 

SVALUE  (6):  In  this  array,  the  rows  are  set  to  I 

parameter  values  of  IVALUE  for  use  as  floating-  I 

point  numbers.  | 

i 

TITLE  (5,6):  This  matrix  contains  the  row  names  ’ 

used  in  the  RMS  Cost  Summary  table.  ' 

TOT  (4):  This  array  is  used  to  accumulate  the  total 

unscheduled  maintenance  and  inspection  personnel 
costs . 
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MCOST  Logic  Flow  Chart 

This  section  presents  the  flow  chart  for  the  MCOST 


I 


r 


logic. 


SUBROUTINE  MCOST  (I VALUE) 
DIMENSION  ARRAYS 

ISWT  » 1,  IRTN  “ 0,  IHDR  * 0 
COST  ROUTINE  CONTROL  SWITCH 

DETERMINE  BRANCH 

GO  TO  ISWT  (1,201,202,3,4,5) 

ISWT 


SET  ARRAY  VALUES  TO  ZERO 

ISWT  » 2;  SET  ISWT  TO  BRANCH  TO 
MAINTENANCE  ACTION  ROUTINE  (201) 

ROUTINE  TO  READ  CARD  DATA 

READ  AVUM  DATA 

LAST  AVUM  DATA  CARD  READ? 

IMOS  = 999 

CHECK  FOR  AVUM  ARRAY  SIZE  EXCEEDED 
IMOS  < 16 

WRITE  ERROR  CODE  = 01 

STORE  DATA  IN  AVUM  ARRAY 
GO  TO  200 
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300 


U 


400 


D 


500 


RliAD  AVIM  MOS  DATA 

LAST  AVIM  DATA  CARD  READ? 

IMOS  =999 

CHECK  FOR  AVIM  ARRAY  SIZE  EXCEEDED 
IMOS  <16 

WRITE  ERROR  CODE  =02 
STORE  DATA  IN  AVIM  ARRAY 

GO  TO  300 

read  DEPOT  MOS  DATA 

LAST  DEPOT  DATA  CARD  READ? 

IMOS  = 999 

CHECK  FOR  DEPOT  ARRAY  SIZE  EXCEEDED 
IMOS  <16 

WRITE  ERROR  CODE  ==  03 
STORE  DATA  IN  DEPOT  ARRAY 

GO  TO  400 


2S 


500 


READ  SUBSYSTEM  MAINTENANCE  DATA 

LAST  DATA  CARD  READ? 

ISUB  « 999 

CHECK  FOR  SUBSYS  ARRAY  SIZE  EXCEEDED 
ISUB  <26 

WRITE  ERROR  CODE  » 04 
STORE  DATA  IN  SUBSYSTEM  ARRAY 

GO  TO  500 

READ  PART  DATA 

LAST  DATA  CARD  READ? 

IPART  « 999 

CHECK  FOR  PART  ARRAY  SIZE  EXCEEDED 
IPART  <500 

WRITE  ERROR  CODE  « 05 
STORE  DATA  IN  PART  ARRAY 

GO  TO  600 

WRITE  ’CARD  DATA  READ’ 

GO  TO  1000 
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Reproduced  from 
best  avellebte  copy, 

MAINTl-NANCIi  ACTION  ROlITINn 

SWITCH  SI:T  for  INSPFCTION  ROUTINIi? 
IVALUR(l)  > 25 

CO  TO  2;  INSPHCTION  ROUTINF, 

MAINTFNANCIi  ACTION  = CONDIiMN? 

IACT»6 

GO  TO  501;  PART  COST  BY  SUBSYSTKM 
OVnRTIMF  TRANSACTION?  IACT=9 


ADD  THE  ADDITIONAL  OVERTIME  COST  TO  AVUM 
SUBSYSTEM  TOTAL 

GO  TO  1000 


AVUM  MAINTENANCE  ACTION? 
lACT  < 3 

GO  TO  301 


CONSUMABLE  COST  PREVIOUSLY  ACCOUNTED? 
IVALUE(5)=999 

COUNT  MAINTENANCE  ACTION  BY  SUBSYSTEM 
KNTRAYCISYS, 1ACT)=KNTRAY(ISYS, lACT)  + 1 


CONSUMABLE  COST ; CSTRAY  f I SYS , 1 ) +AVUM (MOS , 6 ) 


AVUM  MANPOWER  COST 

CSTRAY ( I SYS , 1 ) + f AVUM ( MOS , 4 ) +AVUM (MOS , 5 ))  *RMMH 
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i 

i 

1 

! 


COMPONENT  PREVIOUSLY  ACCOUNTED? 

GO  TO  1000 

MAINTENANCE  ACTION  - AVUM  OFF  A/C  REPAIR? 
I ACT- 3 

SUM  OFF  A/C  MAINTENANCE  ACTION  BY 
COMPONENT  AND  ACTION;  PIPRAY(IPRT,1) 


TIME  CHANGE  COMPONENT? 

IVALUE(S)»19 

GO  TO  501;  COMPONENT  COST  BY  SUBSYSTEM 


RETURN  TO  RMS 


AVIM  MAINTENANCE  ACTION? 
IACT-4 

GO  TO  401 


COUNT  AVIM  MAINTENANCE  EVENT  BY 
SUBSYSTEM;  KNTRAY(ISYS,4) 


AVIM  SUBSYSTEM  COST 

SUM  OFF  A/C  MAINTENANCE  ACTION  BY  COMPONENT 
AND  ACTION;  PIPRAYCIPRT,2) 


GO  TO  1000 


i 

j 

f 
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DEPOT  SUBSYSTEM  COST 


SUM  OFF  A/C  MAINTENANCE  EVENT  BY  COMPONENT 
AND  ACTION;  PIPRAY(IPRT,2) 


COUNT  AVIM  MAINTENANCE  EVENT  BY 
SUBSYSTEM ; KNTPvAY  ( I SYS , S ) 


GO  TO  1000 


COMPONENT  COST  BY  SUBSYSTEM 
MAINTENANCE  ACTION-CONDEMN  OR  TIME  CHANGE 


SUM  SALVAGE  VALUE  BY  SUBSYSTEM 
CSTRAY(ISYS,4)-CSTRAY(ISYS,4)-PART(IPRT,3) 


ADD  NEW  PART  COST  TO  SUBSYSTEM  PIPELINE  COST 
PIPE ( ISYS)*PIPE ( ISYS) +PART  fl PRT, 2) 


COUNT  MAINTENANCE  ACTION  BY  SUBSYSTEM 
KNTRAY ( I SYS , 6 ) = KNTRAY ( I SYS , 6 ) + 1 


GO  TO  1000 


INSPECTION  COST  ROUTINE 

ISWT-3;  SET  BRANCH  TO  WRITE  INSPECTION 
COST  (202) 

IRTN-1;  SWITCH  FOR  CONSUMABLE  COST 
CALCULATION 

SET  ARRAY  VALUES  TO  ZERO 


WRITE  INSPECTION  HEADERS 


K-IVALUE(1)-100 

PRINT  TOTALS?  K-15 

GO  TO  402;  PRINT  TOTALS 

PARAMETERS  PASSED  FROM  RMS  ARE  NUMBER  OF 
EVENTS/INSPECTION?  IRTN»1 

COMPUTE  CONSUMABLE  COST/ INSPECTION 

IRTN-2 
GO  TO  lOOC 

COMPUTE  MOS  MMH  COST  AND  ADD  CONSUMABLE  COST 
IRTN=I 

SUM  THE  NUMBER  OF  INSPECTION  MAN-HOURS  FOR 
MOS  LEVEL;  PTOTP(K)=PTOTP(K)+RVALUE(I) 
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MAN-HOURS  * 0;  PTOTP(K)*0.0 
GO  TO  1000 

CALCULATE  THE  INSPECTION  COST  FOR  MOS  LEVEL 

MAXK*K 
GO  TO  1000 


WRITE  INSPECTION  COSTS  FOR  EACH  ACTIVE  MOS 
WRITE  INSPECTION  TOTALS 

COMPUTE  PERCENT  OF  COST  FOR  INSPECTION  LEVEL 
WRITl  PERCENTAGES 

ISWT=4;  SET  BRANCH  TO  MAINTENANCE  REPORT  (3) 
GO  .TO  1000 
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MAINTENANCE  REPORT 
K » AVUM  MOS  NO. 

PRINT  TOTALS?  K » 15 
GO  TO  303;  PRINT  TOTALS 

AVUM  PERSONNEL  COST  HEADINGS  PRINTED? 

KHDR  f 0 

KHDR  - 1 

WRITE  AVUM  PERSONNEL  COST  HEADINGS 
PARAMETERS  PASSED  FROM  RMS  IN  ARRAY  IVALUE 

RVALU  (1)  * AVAILABLE  MAN-HOURS;  IVALUE  (2)/10 

RVALU  (2)  - NO.  OF  MAN-HOURS  EXPENDED: 

IVALUE  (3)/100 

RVALU  (3)  - OVERTIME:  IVALUE  (4)/100 

COMPUTE  THE  REGULAR-DIRECT  COST 

COMPUTE  THE  COST  FOR  OVERTIME  LABOR 
COMPUTE  INDIRECT  COST 

TOTAL  MAN-HOURS  AVAILABLE  LESS  REGULAR-DIRECT 
COST 

COMPUTE  TOTAL  COST  FOR  MANPOWER  FOR  THE 
MOS  LEVEL 
TOTAL  COST  > 0 

GO  TO  1000 

ROUND  THE  REGULAR,  OVERTIME,  AND 
INDIRECT  COSTS 

ACCUMULATE  COST  IN  EVENT (K, 4)  AND  TOT(N) 

GO  TO  1000 
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COMPUTE  EACH  MOS  COST  AS  PERCENTAGES  OF 
TOTAL  AVUH  PERSONNEL  COST 

WRITE  PERSONNEL  COSTS  FOR  EACH  MOS 

WRITE  TOTAL  AVUM  PERSONNEL  COSTS 

COMPUTE  PERCENT  DIRECT  AND  INDIRECT 
WRITE  PERCENTAGES 

ISWT  - 5;  SET  BRANCH  TO  SUBSYSTEM  REPORT  (4) 
GO  TO  1000 


SUBSYSTEM  REPORT 

COMPUTE  PIPELINE  COST  FOR  EACH  SUBSYSTEM 
WRITE  HEADINGS 

I “ 1;  SUBSYSTEM  NO. 

SUBSYSTEM  COST  ROUTINE 

SUBSYSTEM  COST»AVUM  COST+AVIM  COST+DEPOT  COST 
+PIPEI.INE  COST+(- SALVAGE  VALUE) 

COST  <1.0 

LNCNT  LE  18;  LINE  COUNTER 

LNCNT  * 0 
WRITE  HEADINGS 

DETERMINE  THE  SUBSYSTEM  COST  AS  A PERCENT 
OF  THE  TOTAL  SYSTEM  COST 

WRITE  SUBSYSTEM  COST 

LNCNT  « LNCNT  + 1 

ACCUMULATE  SUBSYSTEM  COSTS 


INCREMENT  SUBSYSTEM  NO. 

1 = 1 + 1 

I LE  NUMBER  OF  SUBSYSTEMS 


WRITE  SUBSYSTEM  TOTALS 

COMPUTE  PERCENT  OF  TOTAL  COST  FOR  EACH 
MAINTENANCE  LEVEL 


I SWT  = 6;  SET  BRANCH  TO  FLIGHT  HOUR  REPORT 
(5) 

GO  TO  1000 
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COST  PER  FLIGHT  HOUR 


WRITE  HEADINGS 


SET  ARRAY  TO  ZERO;  SUMRY  (I,J)  » 0 

PARAMETERS  PASSED  FROM  RMS  IN  ARRAY  SVALUE; 
FLIGHT  HOURS,  NO.  OF  FLIGHTS,  % UPTIME, 

% MISSIONS  FLOWN,  % MISSIONS  COMPLF.TEI) 

READ  DEPRECIATION  COST/HR,  FLIGHT  COST/HR, 
CONSUMABLE  COST/ HR 


DEPRECIATION  COST  « FLIGHT  HRS*DEPRECIATION 
COST/HR 

FLIGHT  COST  « (FLIGHT  COST/HR.  + CONSUMABLE 
COST/HR.)*  FLIGHT  HRS. 


FLIGHT  COST/HR  » FLIGHT  COST/FLIGHT  HOURS 

INSPECTION  COST/HR  = TOTAL  INSPECTION 
COST/ FLIGHT  HOURS 

INDIRECT  COST/HR  « TOTAL  INDIRECT  COST/ 
FLIGHT  HOURS 


MAINTENANCE  COST/HR  • TOTAL  MAINTENANCE 
COST/ FLIGHT  HOURS 


SUM  COSTS  FOR  SUBSYSTEMS 


COMPUTE  PERCENTAGES 


WRITE  COSTS 


GO  TO  1000 


35 


o o o ooooonooriooo 


4.1.4 


MCOST  Source  Listing 

This  section  presents  the  computer  printout  of  the 
MCOST  subroutine  instructions. 

SUBROUTINE  MCOST (I VALUE) 

DIMENSION  IVALUF(6)*KNTRAV(2S»6)*RVALUE(5) 

OIMCNOION  CAROIN(B) 

OIME»:SION  RVALU(a)*T0T(4) 

dimension  AVUM(15«7)«AVIM(t5*6)*DEP0T(lS»6)*PIPRAY(299»S) 

DIMENSION  SUBSYS(?S*«)*PART(299«9) 

DIMENSION  PCNT(5) 

DIMENSION  SVALUE(6l*S(IMRy(6*S) 

DIMENSION  TITL(S*6) 

DOUBLE  PRECISION  EVENT ( 1N*6) *PTOT (6) »PT0TL 
DOUBLE  PRECISION  CSTRAY(2S«4)»PT0TP(16) 

DOUBLE  PRECISION  ACCUM,T0TALX,T0TCST*PIPE(2S) 
equivalence  (SVALUCm*RVALUE(S)*RVALU(4)) 

DATA  IRTNrKHDR»ISWT/0,0»t/ 

DATA  TITL/120MOEPREC1ATION  FLIGHT  DIRECT  INSPE 

ICTION  INDIRECT  PERSONNEL  MAINTENANCE  SYSTEM 

2 / 


COST  ROUTINE  CONTROL  SWITCH 


ISnT  s 1 
ISNT  a 201 
ISNT  a 202 
ISNT  a 1 
ISNT  a 4 
ISNT  a S 


INITIALIZATION  AND  CARO  INPUT  ROUTINE 

maintenace  cost  routine 

INSPECTION  COST  ROUTINE 

INSPECTION  AND  MAINTENANCE  PERSONNEL  COSTS  (AVUM) 
SUBSYSTEM  maintenance  COST  ROUTINE 
FLIGHT  HOUR  COSTS  AND  STATISTICS  ROUTINE 


60  TO  (1*201, 202. 3. 4,5).  ISNT 


INITIALIZE  INPUT  ARRAYS 

1 OOllOIaMS 
AVUM(I,7)aO 
00100Jal,6 
AVIM(I,J)aO 
OEPOT(I,J)aO 

100  AVUM(UJ)  a 0 

110  CONTINUE 
001SOIaU25 
PIPEdlaO.DO 
00140Jal,4 

140  SUHSVS(I.J)  a 0 

150  CONTINUE 
P0170IaU299 
00160Jal,9 

}f>0  PART(I,J)aO 
00151Jal,3 

151  PIPRAYlI,J)aO 

170  CONTINUE 

D0l31JaU25 

00111Kxl,6 

KNTRAY(J,K)sO 

111  CONTINUE 
D0121Kal,4 

121  CSTRAY(J,K)aO.DO 

131  CONTINUE 
ISNTa2 
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c 

C READ  AVUM  MOS  DATA 
C 

20C  REAO(5f5300)IMOS>(CAROIN(K)»Kal,7) 
ircIMOS.EO. 999)60  TO  100 
IFdMOS.LT. 16)60  TO  20S 
lERRsOl 

MRITE(6flOOO)IERR 
60  TO  210 
205  D0210JS1W 

AVUH(IMOS»J)  s CAROIR(J) 

210  CONTINUE 
60  TO  200 
C 

C READ  AVIM  MOS  DATA 
C 

300  REAO(S*SOOO)IMnS*(CAHOIN(K),Ksl,6) 
IFdMOS.EQ, 999)60  TO  «00 
IFdMOS.LT, 16)60  TO  305 
IERR*02 

NRITb(6#3000)lERR 
60  TO  310 
305  l)0310Jsl«6 

AV1M(IM0S»J)  * CAROIN(J) 

310  CONTINUE 
60  TO  300 
C 

C READ  DEPOT  DATA 
C 

aOO  REAO(Sr5000)IMOSr  (CARf)IN(K),KBl,6) 
IFdMOS.FO, 999)60  TO  500 
IFdMOS.LT, 16)60  TO  «05 
lERRxOl 

WRITE(6,3000)1ERR 
60  TO  aio 
a05  00«10Jsl,6 

OEPOTdMOS,  J)sCAROlN(J) 

«tO  CONTINUE 
60  TO  AOO 
C 

C HEAD  SUBSYSTEM  MAINTENANCE  CARO 
C 

500  HE  AD  (5, 5)  OOHSUH,  (CAHDIN(K)  ,K*l , 3)»KFLFM 
IFdSUH.EO, 999)6(1  TO  600 
IFdSUB.LT. 26)60  TO  505 
IEHRbOA 

WHITEC6.5000)IEHR 
60  TO  510 
505  1)05102=1,3 

SU8SVSnSUH,J)=CAHDIN(J) 

510  CONTINUE 

SUHS¥3(ISUB,a)»KELEM 
N'  jVSilSUB 
60  TO  500 


I 


^ 
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c 

C READ  PAKT  RATA 
C 

600  RFAO(5#5200nPART»ISVS«(CAKOIN(N),Kcl*ti) 

IF(IPART,E0.999)G0  TO  70«> 

IFdPART.LT. 300)60  TO  60S 
lERRaOS 

MRITF(6*3000)IERR 
60  TO  610 
60S  Ka^ 

D0610J«1*8 

PARTdPART.K)aCAROIN(J) 

KaKfl 

610  CONTINUE 

PART(IPART.l)aI$yS 
60  TO  600 
700  NRITE(6*2000) 

C 

C FORMAT  STATEMFNTS  FOR  INITIALIZATION  ROUTINE 
C 

5000  FOHMAT(n.3A(l,3F7.a) 

SlOO  F0RMAT(n.3A<l.M) 

S200  F0RMAT(I3,I2,2F8,2,3F7.2.3F5.0) 

5300  F0RMAT(I3,1A«,3F7.2,F5.1) 

2000  FORMAT! IHO.tRHCARO  DATA  RFAO) 

1000  FORMATdHO, ‘ERROR  COOf  *»I2) 

60  TO  1000 
C 

C CHECK  FOR  MAInTFNANCF  ACTION  OR  INSPECTION  ROUTINE  CALL 
C 

201  IFdVALUEdl.GT, 25)60  TO  2 
C 

C******«****«******** 

C MAINTENANCE  ACTION  ROUTINE 

:••********•*«*«*•*** 

c 

C KNTRAV()(.Y)  ACCUMULATES  UNSCHEDULED  MAJNTFNANCF  ACTION  HV  SYSTEM 

C PIPRAY(X,Y)  ACCIMULATFS  OFF  A/C  MAINTENANCE  ACTION  BY  PART 

C 

ISYSalVALUE (1 ) 

IPRTalVALUF(?) 

lACTalVALUECO) 

IFdACT,EQ.6)r,n  TO  501 
MOSalVALUFd) 

RMMHaIVALUE(6) 

RMMHaRMMH/tOO 
IF(IACT,NE,9)Gn  TO  311 

CSTWAYdSYS, 1 )*CSTRAY(ISYS,1 )yRMMH*( (AVUM(M0S,7)-1 ,0)*AVUM(M0S,«)) 
GO  TO  1000 

311  IFdACT.GT,  3)GO  TO  301 
C 

C AVUM  COST  BY  SUBSYSTEM 
C 

C CHECK  FOR  SECONDARY  mOS  OR  SPLIT  SHIFT 
IF(1VALUF(5),E0. 999)60  TO  521 
KNTRAYdSYS,IACT)aKNTRAYdSYS,IACT)il 
CSTRAYdSYS,  DaCSTRAYdSYS,  1)  + AVUM(M0S,6) 
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)21  CSTRAY(ISYS«l)sC$IK«Y(ISVS,n*(AVUM(M0Sf4)*AVUH(M0S,S))*RMMH 
IF(IVALUE(5).E0.9<)9)60  TO  1000 
IF{IACT,NE,3)G0  TO  «11 
FIP»AY(IPRT,n*PIPRAY(lPRT,l)4l 
C TIME  CHANGE  COMPONENTS  GO  TO  CONDEMN  ACCOUNTING 
411  IF(IVALUE(S).EQ.t9)G0  TO  SOI 
1000  RETURN 

AVIM  COST  BY  SUBSYSTEM 

301  IF(IACT.GT.4)GO  TO  401 

KNTRAY(ISYS,4)«KNTRAYnSYS,4)«l 

CSTRAY(ISYS»2)«CSTRAY(ISYSr2)f(AVlM(MO8»4)«AVIM(M0S»S))*RMMM«AVlM( 

2M0S*6)fPART(lPRT,4)fPART(IPRT,6) 

PIPRAY(1PRT,2)«PIPRAY(1PRT,2)+1 
GO  TO  1000 

DEPOT  COST  BY  SUBSYSTEM 

401  CSTRAY(ISYS,3)«CSTRAY(ISYS*3)t(DEP0T(H0S»4}4DEP0T(M0S»S))*RMMHtDEP 
SOT (M0S»  6) *PART ( IPRT ,S) iPART ( IPRT , 6) 

PIPRAY(IPRT,3)sPlPRAY(lPRT,3)«l 
KNTRAY(ISVS*S)«KNTRAY(ISYS«5)fl 
GO  TO  1000 

PART  COST  BY  SUBSYSTEM 
SALVAGE  VALUE 

sot  CSTRAY(ISYS>4)«CSTRAY(ISYS»4)fPART(IPRT«3) 

NEN  PART  COST  ••  PIPELINE  REPLACEMENT  PART  COST 
PIPE(ISYS)«PIPEaSYSUPART(lPRT»2) 

KNTRAY(ISVS«6)aKNTRAV(ISVS»6)4l 
GO  TO  1000 


INSPECTION  COST  R0t;TlNE 

**•*************^0* 


PTOTP(X)  ACCUMULATES  THE  NO,  OF  INSPECTION  HOURS  BY  MQS  LEVEL 

CHECK  FOR  INITIALIZATION  AND  HEADER  PRINT 

2 CONTINUE 
IRTN«1 
ISWTaS 
DO102Id«16 
102  PTOTP(I)»0,O0 
00132Jsl.fc 
PTnT(J)«0,D0 
D0l22Ktl,lS 
122  EVENT(K,J)s0.D0 
132  CONTINUE 
MAXKsO 
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c 

C WRITE  INSPECTION  HEADERS 
C 

WRITE(6»1100) 

WRITF(6»1110) 

WRITE(6rl2flO) 

WRITEC6,1205) 


MOS  15  IS  CURRENTLY  USED  FOR  TOTAL  NO,  OF  FVENTS  PFR  INSPECTION  LEVEL 

202  KsIVALUF(l)-100 

IF(K.EQ.15)tiO  TO  402 
IF(IRTN,F0,2)G0  TO  302 

consumable  COSTS  DURING  INSPECTION 

IVALUE(l)  s »VUM  MOS  LFVFL  IVALUF(4)  s NO,  OF  PMD 

IVALUE(2)  » NO,  OF  PREFtlGHTS  **  IVALUF(5)  s NO,  OF  PM] 

1VALUE(5)  ■ NO,  OF  POST  FLIGHTS  **  IVALUE(6)  * NO,  OF  PMP 

IRTNS2 

Ms2 

D0222Jsl,5 

EVENT(K#J)»AVIIM(k,6)*IVALUE(M) 

MaM«l 

222  CONTINUE 
GO  TO  1000 


COMPUTE  MMH 

COST  AND  ADO 

CONSUMABLE 

COST 

IVALUE(l) 

a 

AVUM  MOS 

LEVEL 

** 

1VALUEC4) 

a 

PMD 

HOURS 

IVALUF(2) 

a 

PREFLIGHT 

HOURS 

ft* 

IVALUE(S) 

a 

PMl 

hours 

1VALUEC3) 

a 

POST  flight  HOURS 

ft* 

IVALUE (N) 

a 

PMP 

hours 

302  M*l 
IRTNbI 
D0322Ib2,6 
RVALUE<M)«IVALUF(n 
RVALUE (M)iRVALUF(M)/ 100,0 
MiMf  1 

322  CONTINUE 


SUM  NO,  OF  INSPEC  MANHOURS  BY  MOS  LEVEL 
00332I«1,5 

PTOTP(K)*PTOTP(K}+RVALUF(I) 

332  CONTINUE 

IF(PTOTPCK),EO,0)G0  TP  1000 
00342J«1.5 

FVFNTCK, J)aRVALUE(.n*(AVUM(K,«)+AVUM(K,5) )fEVENT(K, J) 

IRnUND»EVENT(K, J)*0,5 

EVENT(K,J)«IH0UND 

EVENT(K,6)sEVENT(K,f))+FVENT(K,J) 
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C 

C SUM  INSPECTION  COST  HY  INSPECTION  LEVEL 
C 

PTOT(J)aPTOT(J)tEVENT(K,J) 

S42  CONTINUE 

PT0T(6)«PT0T(6)*EVENT(K,6) 

MAXKsK 
GO  TO  1000 
402  00412K«1,M«XK 

IF(EVENT(K,6).EQ.O,00)GO  to  412 
PERCNT»(CVENT(K,6)/PTOT(6))*100. 

NRITE(6«24S0) 

WRITE(0»120S) 

NR1TE(6»1400)(PTOT(I),I*1,6) 

ptotl«o.oo 

00422!al«S 

PT0T(I)«(PTOT(n/PTnT(6n*100 
PTOTL*PTOT(IUPTOTL 
422  CONTINUE 
C 


wRlTE(h,2450) 
write (6*I20S) 

WRITE (6* 1500 )(PTOT(T),Ial,S),PTnTL 
T0TIN3*PT0T(6) 

ISwT«4 
00432K8l,tS 
432  EVENT(k,4)*0,D0 
MAXKsO 
GO  TO  1000 
C 

C FORMATS  FOR  INSPECTION  COST  ROUTINE 
C 

1105  FORMAT(lHl) 

1100  F0RMAT(1H1,56X,19HRMS  INSPECTION  COST) 

1110  format  (49X,  35H— 

1200  FORMAT(1HO,1«X,9HM03  LEVEL» 7X,22HPREFLIGHT  POST  FLIGHT, 6X, 19HDAIL 
2Y  INTERMEDIATF,5X,AHPERI001C,8X,5HT0TAL, lOH  PERCENT) 

1205  format  ( 15X,  lOlH— 



1300  FORMAT(lH0,14X,lA4,3(2X,Fll,0),3X,3(Fll,0,2X),?X,Fh.2) 

1400  FORMAT(lH0,14X,5HTnTAL,7X,3(2X,Fll,0),3X,3(F11.0,2X),'  100.00') 

l‘'OO^Pf’RMAT(lHO,10X,16HPFRCENT  OF  TOT  AU,  3 ( 7X  , F h.  2) , BX , F6.2,  7X , F6.2, 7X , F 

2450  FOHMAT(IHO) 


maintenance  report 


ROUTINE  TO  determine  PERSONNEL  COSTS  FOR  THE  AVUM  MOS  LEVELS 


IVALUE(l) 

IVALUE(2) 

IVALUE(3) 

IVALUE(4) 


MOS  LEVEL 

available  manhours 

NO,  OF  MANHOURS  EXPENDED 
OVERTIME  IN  ,01  HOURS 
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C 

s KsIVALUE(l) 

IF(X.EQ. 15)60  TO  SOS 
tF(KHDR.NE.O)60  TO  80S 
KHDRal 
0010SJsl>4 
TOT(J)aO 
lOS  CONTINUE 

NRITE  PERSONNEL  HEADINGS 

NRITE(A»200S) 

HRITE(6*2050) 

WKITE(6*2100) 

WRITE(6*2200) 

NHITE(6.2300) 

20S  RVALU(l)sIVALUE(2) 

RVALU(2)«IVALUE(3) 

R’/ALU(3)*IVALUE(«) 

RVALU(l)«RVALUm/10 
RVALU{2)»HVALU(2)/t00 
RVALU(3)*RVALU(3)/100 

PERSONNEL  COST  * UNSCHEOULEO  MAIN!,  ♦ INSP  ♦ OT 
RATE«AVUM(K>4) 

REGTMtRVALU(2)-RVALU(S)*PT0TP(K) 

RFGCST*REGTM*NATt 
0VERTMaRVALU(S)*(RATE*AVUM(K,7)) 

T0THRSsRVALU(1)*RATE 
CINOCTsTOTHRS-REGCST 
IFdOTHRS.LE. 0,0)60  TO  1000 

WRITE 

IRDUND  a RFGCST  ♦ 0,5 
EVENHK,  n»IROUNO 
IROUNO  a OVFRTM  ♦ 0.5 
EVENT(K,2)aIR0!JND 
IROUNO  a r.INOCT  ♦ 0,5 
EVENHK, S)aIRLUINO 

EVENHK,a)aEVENT(K,n*FVENT(K,2)+FVENT(K,3) 

00213Nsl,« 

213  TOT(N)aTOT(N)+tVENT(K,N) 

MAXKaK 
60  TO  1000 

WRITE  TOTALS,  CALCULATE  PERCENTAGES  AND  PRINT 

303  0031 SKal ,MAXK 

lF(EVENT(K,<n,EQ, 0.00)60  TO  313 
PERCNTa(FVENT(K,U)/TOT(4))*100 

wRITE(6,2U00)(AVUM(K,J), Jal,3), (FVENT(K,M),M8i,a),PEHCNT 
31 3 CONTINUE 

wRITE(6,2aS0) 

WR1TE(6,2050) 

wRTTF(«i,?SOOHTOT(I),Isl.«) 

TOTINOaTOT(3) 
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c 

0032)lst,3 

TOT(I)*(TOT(I)/rOT(4))*100 
323  CONTINUE 

TOT(a)*TOT(l)+TOT(2)^TOT(3) 

WIUTE(6*2450) 

WRITE(6»2050) 

WRITE(6*2600) 

NRITE(6»2700HTOT(I),Isl>4) 

ISNTbS 
GO  TO  1000 

FORMATS  FOR  AVUM  MOS  PERSONNEL  COST 

2003  FORMAT(tHl,3SX,5aHlNSPECTION  AND  UNSCHEDULED  MAINTENANCE  PERSONNEL 
4 COSTS) 

2050  F0RMAT(24X,R1H— 



2100  FORMAT(1HO*24X,3HMOS»15X*22H— •—  DIRECT  •»7X,8HIN0IHECT,  1 

50X,5H70TAL»10H  PERCENT) 

2200  format (24X ,5HLEVEL » 1 4X ,7HREGUL AR, 7X , 8HOVERT IME ) 

2100  FORMATCIH  ) 

2400  FORMAT(1HO,23X,1A4,4(4X,F11,0)#3X,F6,2) 

2500  FORMAT(1HO,23X,5HTOTAL»7X,4(4X,F11,0), ' 100,00') 

2600  FORMAT(1HO»23X,10HPERCENT  OF) 

2700  F0RMAT(24X,5HT0TAL, 16X,4(F6.2,9X)) 


SUBSYSTEM  REPORT 


1 VALUE  IS  A dummy  ARR^Y 


COMPUTE  PIPELINE  COST 

4 SIMHRSsIVALUE(1)/10 
ICNTsO 
KNTSUBsO 
NOSRT*l 
D084U1,N0SYS 
NfJSRT*NOSRT-UCNT 
lCNTsSUBSYS(I,4) 

IF  (ICNT.EQ.Oir.O  TO 
KNTSUBsKNTSUB+ICNI 
PLNsO 

0n64NKaN03RT,KNTSiJB 
PLNsP1PRAY(NK, 1)*(PART(NK, 7) /SIMHRS) 

^ PLN*PIPRAY(NK,?)*CPART(NK,8)/SIMHRS)*PLN 

\ PLN»PIPRAY(NK,3)*(PART{NK,9)/SIMHRS)+PIN 

j PLN  s PLN  ♦ 0.5 

IPLN  ■ PLN 
PLN  * IPLN 

54  PIPE(naPIPE(I)-KPLN*PART(NK,2)) 

PLN«0 
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64  CONTINUE 
A4  CONTINUE 
TOTCSTsO.OO 
001b4I«l,NOSVS 
IROUND«CSTRAV(I*a)  ♦ O.S 
CSTRAY(I,4)  B -IHOUNO 
D010«Js1,3 

IKOUNDsCSTRAY(I,J)  f 0.5 
CSTRAY(I«J)8IR0UN0 
104  TOTCSTsTOTCST^CSTRAYd.J) 

IROUNDbPIPE(I)  ♦ 0,5 
RIPfc(1)BlRnUN0 

T0TCSTiT0TC8T4PlP£(I)fC8TRAY(I,4) 

154  CONTINUE 

WRITE  HEADER 

NRITF(6«1040) 

WR1TE(6«1C01) 

WRITE(6f 1002) 

WR1TE(6«1003) 

WRITE(6«1004) 

NRITE(6*1045) 

NR!TE(6»1006) 

LNCNTbO 

PRINT  SUBSYSTEM  MAINTENANCE  COST 

DO104IS1.NOS/S 

ACCUMiO.OO 

00214JB1.4 

ACCUMtACCUMfCSTHAY (I, J) 

214  CONTINUE 

ACCUMbACCUM*P1PE(I ) 

IF(ACCUM.lT.1,0)GO  to  30a 
IF(LNCNT,LE.)0)GO  TO  2?« 

LNCNTbO 

WRITE(6,1040) 

**RITE(6»100n 

NRITE(6»100?) 

WRITF(6, 1003) 

WRITE(6»1004) 

W«ITE(6,1045) 

WRITF(6, 1006) 

224  PtBCNTK ACCUM/TOTC3T)*100 

NHITt(6,20aO)(3U83YS{I,J),Jsl,3),(KNTHAY(I.K),Ksl,5),CSTRAVn,|),K 
9NTRAY{I,4),CSTRAY(I,2),KNTRAY(I,b)»CSTRAYn,3),KNTNAY(I,6).CSTRAY{ 
*1.4),PIPF(I),ACCI)m,percnT 
LNCNTsLNCNT+1 
IFd.FO.DGO  TO  30'4 
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ACCUMULATE  M<*INTFNAMCF  TOTALS  tN  SYSHAYU,M)  AND  CSTKAY(1,N) 
0n2^4Msl,6 

?34  KNTHAY(1,M)sKNTMAY(1,M)+kNTHAY(I,M) 

DU244Ms1,4 

244  CSTRAY(l.N)aCSTRAY(1 ,N)«CSTRAY(1,N) 

PIPE(l)sPIPE(n+PlPF(I) 

304  CONTINUE 

PRINT  TOTALS 

HRITfc(6»100h) 

WRITE  (6»200n(KNTRAY(l,K),K*l,3).CSTRAY(l,J)»KNTRAV(l,4),CSTRAYn, 
*2),KNTRAY(1,5)»CSTRAY(1»3),KNTRAY(;,6),CSTRAY{1,4),PIPF(1).T0TCST 
WRITE(6.1007) 

T0TMNT«T0TCST 

ISNTS6 

WRITE((>«1006) 

IF(TOTC3T,LE,0,nojGO  TO  1000 
314  NRITE(6.2043) 

PCNT(5)*0,0 

003S4U1»3 

PCNT(I>»(CSTRAY(l,I)/TOTCST)*tOO 

PCNT(5)sPCNT(^)+PCNTU) 

354  CONTINUE 

PIPE  maPIPE(l)fCSTRAY{  1,4) 

PCNT(4)i(PIPt{l)/T0TCST)*100 

PCNT(5)aPCNT(5)*PCNT(4) 

WRITE(h,2004)(PCNT(I),Id,S) 

GO  TO  1000 

formats  for  SUBSYSTEM  MAINTENANCE  COSTS 

1040  FQRMAT(1HI,52X,?8HSU8SYSTEM  MAINTENANCE  ACTION) 

1001  FORMAT(50X,34H*—— 

1002  FORMAT (IHO,30X,4HAVUM,25X,4HAV1M,13X,5HOEPOT,18X,4HPART) 

1003  FORMAT(14X,100H——— 

1— — — — - — — •) 

1004  F0RMAT(14X,25HN0,  OF  NO,  OF  NO,  OF, 67X , BHPIPEL I NE , / , 1 4X , 20HON 

2-EQUIP  REMOVE  OFF-FOlJIP,4X,5HTOTAL,3X,fcHNO.  0F,4X, 14HT0TAL  NO 
3,  0F,4X,49HT0TAL  NO,  OF  SALVAGE  REPL,  TOTAL  PERCENT) 

1045  F0RMAT(1X,9HSUR3YSTEM,4X,26HREPAIRS  REPLACE  REP A I RS , 6X , A6HC0ST 
5 REPAIRS  COST  REPAIRS  COST  CONDEMN  VALUE  COST 
6C0ST  OF  TOTAL) 

1006  FORMATdX,  132H— • 


8 - ) 

?0«0  FORMAT(lH0,3Aa,3X,I5,5X,IS,6X,3(15,3X,F7.0,5X),I5,2X,F7.0,2X,F8,0, 
91X,F8.0,2X,F6,?) 

2001  FORMAT(*H0,5HTOTAL,10X,15,5X,I5,6X,3(I5,3X,F7.0,3X),I5,2X,F7.0,?X, 
*F8.0, 1X,F8,0,  ' 100,00') 

1007  FORMAT(IHO) 

2043  FORMATdX, lOHPERCENT  OF) 

200  4 FORMAT!  1X,5HTOTAL,40X,  3{F6,2, 12X)  ,8X,F6,2,3X,F6,2'J 
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FLIGHT  HOUR  REPORT 


PRINT  HEADERS 

S WRITE(6»1060) 

HRTTE(6*1061) 

NRITE(6«1062) 

HRITE(6rt06I} 

INITIALIZATION 

001561x1.6 
DQ106JS1.I 
106  SUMRVn.JlaO 

SVALUE(I)sIVALUFf n 
156  CONTINUE 

READ  FLIGHT  CAROl  OEPRFCIATION  COST/HR 

FLIGHT  COST/MR 
C0NSUH4HLE  COST/FLIGHT 

RE A0(5. 5060 ) ORATE, FR4TE. CRATE 
SV4LUE(n*SVALUE(n/10 
SVALUF(3)aSVALUE(3)/10 
0OZ06l3<l,6 

SVALUE(I)a3VALUE(I)/100 
206  CONTINUE 

COMPUTE  FLIGHT  HOUR  ANO  TOTAL  COSTS 

SUMRYd.l  )»0RATE 
SUMRY(1,2)»SVALUE(1 )*ORATE 
SUMHY(2,2)«FRATF*SYALUE{nTCRATE*SYALUF(l) 
SUMRY(2,naSUMRY(2,2)/SVALUF(l) 
SUMRY(3.n«TOTINS/3VALUE(l) 
SUMRY(3,2)«T0TINS 
SUMRY(«,  1 laTOTlNO/SVALUEd  ) 
SUMRY(a,2)aTnTIND 
SUMRY(5,naT0TMNT/3YALUFd) 
3UMRY(5.2)*T(1TMNT 
002561x1.5 

SUMRY(6.2)xSUMRY(6,2)*SUMRY(I,2) 
SUMRY(6,nx3UMRY(6.d*SUMRY(I,l) 

256  CONTINUE 
C 

n i»ERCENTAGES 
C 

003061x1,6 

SUMRY(I,3)x(SUMRYd  ,?)/Sijmry(6,2)  )*t  00 

306  continue 
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PRINT  COSTS 
D01S6I*1.‘ 

rtRITF(fc,2060)(TITL(K,n,K*l,5),(SUMRV(I,J),Jxl  ,3) 

3S6  CONTiNUf 

NRITE(6»1063) 

WRTTE(6»?060){TITL(i<»6),Ksi,'j),(SUMRY(6»J)»Jsl,5) 

WRITE(6.106«) 

8V*LUF(3)aSVALUE(5W2« 

NRITE(6«2061 ^SVALUE(3) 

MRITE(6f20(>2)SVALUE(l ) 

MRITE(6»2063)SVALUE(a) 

WRITF{6#206«)SVALUE(S) 

WRITE(6,2065)SVALUE(6) 

WR!TE(6.106a) 

GO  TO  1000 

FORMATS  FOR  FLIGHT  HOOR  COSTS  AND  STATISTICS 

1060  F0RMAT(1H1,56X. 16HRMS  COST  SUMMARY) 

1061  format  (53X,25H 

1062  FORMAT(1HO,5SX.39HCOST/FLIGHT  HOUR  TOTAL  COST  PERCENT) 

1063  F0RMAT(55X,alH 

1 06«  FORMAT  ( IHO,  35* » 60H— 

1 

3060  F0RMAT(F7.2,2(FS,2)) 

2060  FORMAT(lH0,36*»5Aa,‘jX,F7,2»7X,F9,0,«X,F6,2) 

2061  FORMATdHO, USX, 'TOTAL  SIMULATION  TIME  (DAYS)  * ,7X,F6. 1 ) 

2062  FORMAT(1HO,«5X, 'TOTAL  FLIGHT  TIME  (HRS) ' » 1 1X,F7.  H 

2063  FORMAT(1HO,U5X, 'UPTTmE/TOTAL  TImF ' , 1 «X,F6,2) 

2069  rORMAT(lHO,«5X, 'MISSIONS  FLOWN/missIONS  CALLED' ,SX,F6, 2) 
2065  FORMAT(1HO,9SX, 'MISSIONS  COMPLETED/MISSIONS  FLOWN  '»F6,2) 
END 
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4.2  SHFTHR  Subroutine 


The  SHFTHR  subroutine  is  called  for  from  the  Data  Com- 
pilation routine  to  compute  the  total  number  of  hours  available  in 
each  shift  during  the  simulation  period. 


The  HELPB  block  is  used  to  interface  the  RMS  COST  model 
with  the  SHFTHR  subroutine.  HELPB  provides  two-way  communications 
via  the  fullword  Savevalues.  The  parameters  passed  to  the  subrou- 
tine are  the  number  of  work  days  per  week,  number  of  hours  the 
first  shift  is  available  during  one  day,  number  of  hours  the 
second  shift  is  available  during  one  day,  the  offset  from  the 
start  of  the  work  day,  and  the  simulation  interval.  When  the 
SHFTHR  subroutine  returns  control  to  RMS,  the  second  and  third 
parameters  of  the  passed  transactions  contain  the  total  available 
working  hours  for  the  first  and  the  second  shift,  respectively. 
These  values  are  then  passed  to  the  Maintenance  Report  routines  of 
the  MCOST  subroutine  to  be  used  in  the  computation  of  the  indirect 
personnel  cost. 

Since  the  subroutine  SHFTHR  is  called  for  once,  it  is 
made  core  resident  only  during  this  time. 
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SHFTHR  Logic  Flow  Chart 

This  section  presents  the  flow  chart  for  the  SHFTHR 

logic . 


SUBROUTINE  SHFTHR  (11,12.13,14,15) 

NO.  OF  DAYS  IN  SIMULATION;  SIHHRS  = I5 
STIME=SIMHRS/240 

INTEGER  NO.  OF  DAYS;  IDAY  = STIME 
ROAY  = IDAY 

PARTIAL  DAY:  SHRS  = STIME  - RDAY 

NO.  OF  WEEKS  IN  SIMULATION:  IWKS  = IDAY/7 

PARTIAL  WEEK;  IDAY  = IDAY  - (IWKS  *7) 

IDAY  = 0 or  IDAY  < WKD? 

(WKD  IS  NUMBER  OF  WORKING  DAYS/WEEK) 

IDAY  = WKD 

SHRS  = 0.0 

GO  TO  150 

SHRS  =0.0? 

GO  TO  150 

SHRS  = SHRS  *24.0 

SHRS  = SHRS  - OFFSET 
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REM1  = SHRS  - SHFTl 
REMl  < 0; 

SI  = SHRS;  PARTIAL  HO:  3 ARE  WORKED  ON  FIRST  SHIFT 
GO  TO  1 50 

REMl  = 0 

SI  = SHFTl;  PARTIAL  HOURS  = LENGTH  OF  FIRST  SHIFT 
GO  TO  150 

51  = SHFTl 

REM2  = REMl  - SHFT2 
REM2  < 0 

52  = REMl  ; PARTIAL  HOURS  ON  SECOND  SHIFT 
GO  TO  150 

S2  = SHFT2;  PARTIAL  HOURS  = LENGTH  OF  SECOND  SHIFT 
GO  TO  150 
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150 


WRKDYS  = (IWKS  *WK0)  + IDAY 
SHFT1  = (WRKDYS  *SHFT1)  + SI 
SHFTl  = (WRKDYS  *SHFT2)  + S2 

12  = SHFTl  *10 

13  = SHFT2  *10 
RETURN  TO  RMS 
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4 • 2 . 3 SHFTHR  Source  Listing 


. section  presents  the  computer  printout  of  the  SHFTHR 

subroutine  instructions. 


SUBROUTINE  SHFTMRm,12,u,ia,I5) 

CALCULATES  THE  NUMBER  OE  AVAILABLE  AVUM  WORKING  HOURS. 

NKObII 

SHETUI2 

SHFT?*15 

OEESETsla 

STMHRS*IS 

SHFT1*SHFT1/10. 

8HFT2aSHFT2/lo. 

nFFsrT=(nFFSET*?.)/in. 

SI*P. 

S2*0. 

8TIMErSIMHRS/?<|0, 

I0AV*ST1ME 
HDAYalOAY 
SHRS«STIme-kUAY 
lWKS'aIOAY/7 
If)AY*10AY-(  IwkS*7) 

lF((iDAY.Fo.(n.iiR,(in4Y,i  i,i«(Kii))r,n  to  loo 

lOAYaWKO 

SHRSaO.O 

r.u  in  ISO 

too  IF(8H«s,F0,n,ni(;ii  in  isn 
SHRSsSHRS*?a,0 
SHHSxSHRS-nFFSEI 
REMlaSHHS-.SMFn 
IF(R£Mni  tn,  ipn.tin 
HO  StsShRS 
GO  Tn  jso 
120  SlsSHFTl 
GO  TO  ISO 
no  SlsSHFTl 

HEM2sRf  M)-<5MFt? 

IFIREM?) ) IS, IPS, )2S 
US  S2SHEHI 
GO  TO  ISO 
12S  SPsSHFT? 

ISO  wHKOYSsC  Ii«KS*wK0)»t04V 
SHFTls(WRKnYS*SHf It  USt 
SHF  T?s(wRK0YS*SHFT2)+S? 

I2sSHFTl*in 

n8SHFT2*li) 

return 

END 
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5.  RELIABILITY  AND  MAINTAINABILITY  SIMULATOR  (RMS)  WITH 
COST  LOGIC 

5.1  Introduction 


The  Reliability  and  Maintainability  Simulator  (RMS)  with  COST 
logic,  referred  to  as  the  RMS  COST  model,  was  executed  with  vari- 
ous alternatives  which  are  documented  in  the  final  technical 
report,  USAAVSCOM  TR  75-27,  for  the  current  contractual  effort. 

The  failure  rates  and  a base  manpower  loading  for  the  OH- 58  were 
simulated  for  a 6-month  operational  period  in  an  on-site  demon- 
stration at  the  AVSCOM  Product  Assurance  Directorate. 

The  following  sections  present  the  flow  chart  for  the  RMS 
COST  logic,  a complete  listing  of  the  RMS  COST  model  program,  and 
the  four  cost-information  tables  generated  by  this  program.  The 
flow  chart  shows  the  modifications  made  to  the  basic  RMS.  Each 
modification  in  the  RMS  code  to  incorporate  the  COST  logic  is 
indicated  in  the  RMS  COST  model  program  listing  by  a successive 
encircled  number  which  is  annotated  accordingly. 


53 


5.2  RMS  COST  Logic  Flow  Chart 


RMS  COST  LOGIC 


GP.Nr.RATn  1,,,  1,1 26 
DETPRMINE  RMS  COST?  X1630  = 0 

LOAD  SUBROUTINE  MCOST 

HELPA  MCOST;  CALL  MCOST  TO  INITIALIZE 
COST  VARIABLES  AND  READ  COST  DATA  CARDS 

TERMINAl'E 

MISSION  GENER/\TION  ROUTINE 


)ARM32 


I 

L 


O BYP2 


ACCUMULATE  THE  NUMBER  OF  PREFLIGHTS, 
POSTFLIGHTS  OR  DAILY  INSPECTIONS  IN  HALFWORD 
MATRIX  7 


PMI  OR  PMP  INSPECTION  CONTINUED  FROM  PREVIOUS 
SHIFT?  P26  = 0 


ACCUMULATE  THE  NUMBER  OF  PMI'S  AND  PMP'S 
IN  HALFWORD  MATRIX  7 
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iH-m'kifliiri'i  If 


lUNSA 


UNSClir.DllLHn  MAINTI-NANCM  ROUT  I M. 


COST  LOGIC  FOR  AVUM  RFMOVF  AND  REPLACii 
AND  AVUM  REPAIR 

DETERMINE  RMS  COST?  X1630=0 
C.O  TO  CSTX 

UNSCHEDULED  MAINTE.NANCE  MANHOURS  = 0? 
GO  TO  CSTX 


X1601=V46;  SUBSYSTliM  N0. 


X1602  = FN46;  COMPONl'.NT  N0. 


X1603=P2;  M0S  X0. 


OFF  \/C  RE.PAIR?  PI 7= 18 


X1604  = 3;  MAINTI-.NAN'CE  ACTION  CODE 
FOR  OFF  \/C  Ri;PAlR 


RliMOVF.  AND  RI.Pl.ACL  ACTION? 
P25=1359; 

X1604=2  ; MAINTl  NANCE  ACTION  CODI- 
FOR  RliMOVl.  AND  REIM.ACl. 


X1604=l;  MAINTl  NANCl.  ACTION  CODi;  FOR 
ON  A/C  REPAIR 


3 


R 


Y 


PREVIOUSLY  COUNTED  EVENT?  BV10=1 
X1605=999;  SWITCH  TO  SUPPRESS  EVENT  COUNTER 

GO  TO  CSTA 


X1605=P17;  P17=19  FOR  TIME  CHANGE  ACTION 

X1606=V36;  MAINTENANCE  MANHOURS 

HELPA  MCOST,X1601,X1602,X1603,X1604,X1605,X1606 


OVERTIME  LOGIC 

DETERMINE  RMS  COST?  XI 630=0 
X1601=V46;  SUBSYSTEM  N0. 

X1602=FN46;  COMPONENT  N0. 

X1603=P2;'  M0S  N0. 

X1604=K9;  OVERTIME  ACTION  CODE 
X1605=KO 

X1606=V244;  OVERTIME  MMNTENANCE  MANHOURS 
HELPA  MCOST,  X 1 60 1 , X 1 602  , X 1603 , X 1 604  , X 1605 , X 1 606 


0 OTBP 
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IMAA 


THREE  LEVEL  MAINTENANCE- -AVUM.AVIM, DEPOT 


COST  ROUTINE  FOR  AVIM  REPAIR,C0DE=04; 

DEPOT  REPAIR, CODE=05 

DETERMINE  RMS  COST?  X1630=0 

GO  TO  CST2 

X1601=V46;  SUBSYSTEM  NO. 

X1602=FN46;  COMPONENT  NO. 

X1603=P28;  MOS  N0. 

X1605=0 

X1606=V70;  MAINTENANCE  MANHOURS 
DEPOT  REPAIR:  P6j<8 

X1604--5;  MAINTENANCE  ACTION  CODE  FOR  DEPOT 
GO  TO  CST3 

X1604=4;  MAINTENANCE  ACTION  CODE  FOR  AVIM 

HELPA  MCOST,  X1601 , X1602 , X1603 ,X1604 ,X1605 ,X1606 
DEfERMINC  COST  FOR  MAINTENANCE  ACTION 
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COST  ROUTINE  FOR  CONDEMNED  COMPONENTS 
CODE=6 

DETERMINE  RMS  COST?  X1630=0 

X1601=V46;  SUBSYSTEM  NO. 

X1602=FN46;  COMPONENT  NO. 

X1604=6;  MAINTENANCE  ACTION  CODE  FOR 
CONDEMN 

XI605»0 

HELPA  MCOST,X1601,X1602,X1603,X1604,X1605,X1606 
DETERMINE  COST  FOR  MAINTENANCE  ACTION 
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DATA  COMPILATION  ROUTINE 


LOGIC  TO  CALL  COST  SUBROUTINES 
DETERMINE  RMS  COST?  X1630=0 

GO  TO  BRCH 

INSPECTION  COST  CALCULATION  ROUTINE 
P2=0;  MOS  LEVEL  = 0 


P2=P2+1;  INCREMENT  MOS  LEVEL 


X1601=P2;  MOS  NO. 

X1601=X1601+I00;  FLAGS  AS  INSPECTION  MOS 
P2  < 15;  MOS  INSPECTION  VALUES 

GO  TO  CALL 

X16O2=N0.  OF  PREFLIGHTS  INSPECTIONS  AT 
THE  MOS 

X16O3=N0.  OF  POST  FLIGHTS  INSPECTIONS 
AT  THE  MOS 

X16O4=N0.  OF  DAIL\  INSPECTIONS  AT  THE  MOS 

X16O5=N0.  OF  INTERMEDIATE  INSPECTIONS 
AT  THE  MOS 

X16O6=N0,  OF  PERIODIC  INSPECTIONS  AT 
THE  MOS 

HF.LPA  MCOST,XI601,XI602,X1603,X1604,Xi605,X1606 
DETERMINE  CONSUMABLE  COST/INSPECTION 


59 


X1602=PREFLIGHT  MAINTENANCE  MAN-HOURS  AT 
THE  MOS 

X1603=POST  FLIGHT  MAINTENANCE  MAN-HOURS 
AT  THE  MOS 

X1604=DAILY  MAINTENANCE  MAN-HOURS  AT 
THE  MOS 

X1605= INTERMEDIATE  MAINTENANCE  MAN-HOURS 
AT  THE  MOS 

XI606=PERIODIC  MAINTENANCE  MAN-HOURS 
AT  THE  MOS 

HELPA  MCOST,X1601,X1602,X1605,X1604,XI60S,XI606 
DETERMINE  INSPECTION  COSTS  AND  PRINT 

P2=15;  TOTALS  PRINTED? 

GO  TO  CLPI 

INSPECTION  AND  UNSCHEDULED  MAINTENANCE 
PERSONNEL  COST 

LOAD  SUBROUTINE  SHFTHR 
COMPUTE  MANHOURS  AVAILABLE; 

X1601  = X192;  NO.  OF  IVORKDAYS/WEEK 

Xl(i02=MX3(l  ,1)  ;LENCT1I  OF  FIRST  SHIFT  IN  .1  HOURS 

XUill3=MX3(2,l  ) ;LENGTH  O’-  SECOND  SHIFT  IN  .1  HOURS 

X1604=MX5(l,4);OFFSr,T  FOR  START  OF  WORKDAY 

X16().S=MX1  (5,  n ;SIMIIi,AT10\  LENGTH  IN  .1  HOURS 
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HELPB  SHFTHR,lo01XF,1602XF,1603XF,1604XF,1605XF 
DETERMINE  NO.  OF  HOURS  SHIFTS  WERE  AVAILABLE 

DETERMINE  AND  PRINT  AVUM  PERSONNEL  COSTS 
P2=0;  MOS  LEVEL=0 


P2=^P2+1;  INCREMENT  AVUM  MOS  LEVEL 

P2^12;  LAST  AVUM  MOS? 

GO  TO  CTOT 

P3=V27;  SHIFT  1 MANPOWER  STORAGE  LOCATION 

P3=V241;  DETERMINE  STORAGE  CAPACITY 

P4=V28;  SHIFT  2 MANPOWER  STORAGE  LOCATION 
P4=V242;  DETERMINE  STORAGE  CAPACITY 

X1601=V236;SHIFT  1 AVAILABLE  MAN-HOURS 

X1601 =X16'U+V237;  TOTAL  AVAILABLE  MAN-HOURS  FOR 
P2 

XI 60 1=0;  MOS  NOT  USED 
GO  TO  SHFT 

\I602=V238;  TOTAL  MAN-HOURS  WORKED  IN  .01  HOURS 

X1605=MX2(P2,20) ; OVERTIME  HOURS  IN  .01  HOURS 

H E L 1>A  MCOST , P 2 , X 1 6 0 1 , X 1 6 0 2 , X 1 6 0 3 
niiTERMINE  AND  PRINT  AVUM  PERSONNE.L  COSTS 

GO  TO  SHFT 
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P2=15;  INDICATES  PERSONNEL  COST  TOTALS 
ARE  TO  BE  PRINTED 

HELPA  MCOST,P2;PRINT  PERSONNEL  COST  TOTALS 
SUBSYSTEM  MAINTENANCE  COST 

X1601=MX1(5,1) -.LENGTH  OF  SIMULATION  IN  .1  HOURS 
HELPA  MCOST,X1601 

PERFORM  SUBSYSTEM  MAINTENANCE  COST  ROUTINE 
COMPANY  COST  STATISTICS 

X1601=X183;  FLIGHT  TIME,  IN  .1  HOURS 

X1602=X250;  PLATOON  MISSIONS  COMPLETED 

X1603=MX1(5,1);  LENGTH  OF  SIMULATION  IN  .1  HOURS 
X1604  = X700;  UPTIME/TOTAL  TIME  (IN  ,01?;) 

X1605=V243;  FLOWN/CALLED  (IN.  .Ol’o) 

X1606=X750;  COMPLETED/CALLED  (IN  .011) 

HELPA  .MCOST.X1601  ,X1602,X1605,X1604  ,X1605,X1606 
i;.\D  COST  ROUTINE 
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5.3 


Rf4S  COST  Model  Program  Listing  with  Annotations  for 
R?IS  Code  Modifications 


This  section  presents  a complete  listing  of  the  RMS  model 
program.  Each  modification  in  the  R^IS  code  to  incorporate  the 
COST  logic  is  indicated  in  this  listing  by  a successive  encir- 
cled number  which  is  annotated  accordingly. 


* 


* GHSS  V-OS  veRSILN  » 

IbM  PfiCGfiAM  PRODUCT  5734-XS2  (V1M3) 


* 


©< 


REALLOCATE 

REALLOCATE 

REALLOCATE 

REALLOCATE 

REALLOCATE 

reallocate 

reallocate 

reallocate 

REALLOCATE 

REALLOCATE 

REALLOCATE 

REALLOCATE 

REALLOCATE 

REALLOCATE 

reallocate 

REALLOCATE 

REALLOCATE 


6LU,U00 
EAC.O 
STC ,90 
QUE.TO 
LOO, AO 
FUN.ti', 

TAE  ,15> 
faVP  ,20 
VAE ,250 
ESV,17C0 
HSV,90 
ChA,60 
GRP, 70 
EMS,5 
HMS,7 
XAC ,A00 
COM, 1 lOOOJ 


00000100 

00000150 

U0000200 

00000250 

00000300 

00000350 

OOOOOAOO 

DOOUOAsO 

OUOOO500 

00000550 

00000600 

00000650 

00000700 

0O000750 

00000800 

00000850 

OoOOOVOO 


1.  The  memory  requirements  for  the  entities  were  changed  to 
minimize  the  impact  of  the  increased  core  requirements 
imposed  by  the  RMS  COST  logic. 
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*LOC 

tVEKATION 

A,B,CtO,EtF,G,K*I  COMMENTS 

-SIMULATE 

9 

00000950 

UNLIST 

ABS 

00001000 

1 

VAKIABLt 

P2*K5 

00001050 

2 

VARIABLE 

P1UK5 

00001100 

3 

VARIABLE 

PIH-K8 

00001150 

4 

VARIABLE 

Pll*Kll 

00001200 

5 

VARIABLE 

P4+K5 

00001250 

6 

VARIABLE 

P4*K3 

00001300 

7 

VARIABLE 

PIUKIB 

000U350 

e 

VARIABLE 

P4*K13 

00001400 

9 

VARIABLE 

P3-C1 

00001450 

10 

variable 

RN1*28/1000 

00001500 

11 

VARIABLE 

RN1*7/1000 

00001550 

13 

VARIABLE 

RN1*1000*’RN1 

0000  IbOO 

14 

VARIABLE 

Po*K3 

00001650 

15 

VARIABLE 

P8+K13 

00001700 

16 

VAR  lABLE 

P8+K18 

00001750 

17 

VARIABLE 

P8+K24 

00001800 

16 

VARIABLE 

FN4/2 

00001850 

19 

VARIABLE 

(32a-V20)4K240 

00001900 

20 

VARIABLE 

Cla240 

00001950 

21 

VARIABLE 

P14aHXLIl.lQ) 

0C002000 

23 

VARIABLE 

EN6/10000 

00002050 

24 

VARIABLE 

EN6/I00ai00 

00002100 

25 

VARIABLE 

EN68100 

00002150 

26 

VARIABLE 

P17*8 

00002200 

27 

VARIABLE 

P2  + 32 

00002250 

28 

VARIABLE 

P2*43 

00002300 

29 

variable 

P22*P20 

00002350 

30 

VARIABLE 

P2*8 

00002400 

31 

VARIABLE 

P2*43-P4*ll 

00002450 

32 

VARIABLE. 

8+BV14 

00002500 

33 

variable 

K2*BV14*8 

00002550 

34 

variable 

K3*BV14*B 

00002600 

35 

variable 

230-C19240  TIME  REMAINING  2ND  SHIFT 

00002650 

36 

VARIABLE 

P3*P4 

00002700 

37 

variable 

P2  + 20 

00002750 

38 

VARIABLE 

150-Cli240  TIME  LEFT  CN  IRST  SHIFT 

OOOC280O 

39 

VAR lABLE 

P4-P20 

00002050 

40 

variable 

P2*29 

00002900 

41 

VAR  IA6LF 

P19  + 39 

00002950 

42 

variable 

P3*100tP5 

00003000 

45 

VARIABLE 

FN37/KIOOO 

00003050 

46 

VARI ABLE 

P22/100 

00003100 

47 

VARIABLE 

PU25 

00003150 

48 

VAR lABLE 

FN40/10000 

000L3200 

49 

VAr  iable 

FN40«llOOOO/lOO 

0L003250 

50 

VARIABLE 

FN40ai00 

00003300 

51 

VARIABLE 

Pl*28 

00003350 

52 

VAR  IABLE 

FN42/10000 

0000340C 

53 

VARIABLE 

fN42o)100O0/lOO 

00003450 

54 

VAR IABLE 

FN42310C 

00003500 

55 

VARIABLE 

KO  + I FN4  3Ss000*FN3o*^500l/  1000 

00003550 

56 

VARIABLE 

P4*10 

00003600 

57 

VARI ABLE 

IMX114,5I*FN36»500I/1000 

0C003O50 

The  maximum  run  lengths  used  for  all  simulations  of  6 
montiis  and  less  and  for  all  simulations  of  1 year  were 
9 and  li  CPU  minutes,  respectively. 
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S8 

VAfMABLE 

P2*37 

00003700 

89 

VARIAOLE 

1^BV6 

00003750 

60 

VARIABLE 

M1*K10 

00003B00 

61 

VARIABLE 

FN65 

00003850 

62 

VARIABLE 

N$NORD-N»NORU 

00003900 

63 

VARIABLE 

P2AK69 

00003950 

66 

VARIABLE 

PUCl 

00006000 

6S 

VARIABLE 

(FN63/1000*FN36«’K500I/1000 

00006050 

66 

VARIABLE 

FN63/1000 

00006100 

67 

VARIABLE 

FN67/10CO 

00006150 

66 

VARIABLE 

|FN69ai0000«FN 3665001/ 1000  TIME  FOK  DEPOT  REPAIR 

00006200 

69 

VARIABLE 

P286K63 

00006250 

70 

VARIABLE 

P3l*P6 

00006300 

71 

VARIABLE 

EN37aK1000 

00006350 

72 

VARIABLE 

FN67/1000 

00006600 

73 

VARIABLE 

FN6 731000 

000U6650 

76 

VARIABLE 

P3*MX3(62,6J-C1 

00006500 

76 

VARIABLE 

P8-R*l 

00006550 

77 

VARIABLE 

P6663 

00006600 

78 

VARIABLE 

P6632 

00006650 

79 

VARIABLE 

P36P5 

00006700 

80 

VARIABLE 

P26K666IK3-P16I 

00006750 

81 

VARIABLE 

K216P66K11  (K3-'P16I 

00006800 

82 

VARIABLE 

P5-CiaP3 

00006B50 

83 

VARIABLE 

P6-R67 

00006900 

86 

VARIABLE 

HX1(5.2|6MX1(5i3|6MXI(5,6) 

00006950 

as 

EVARIABLE 

X183*10/(X5006X6506X600)  HT2BH 

00005000 

86 

FVARIABLE 

IX550*101/X1836X501  INSP  G SEHVOE  MMH/EH 

00005050 

87 

FVARIABLE 

(X550*1C)/X183  SCHEDULED  HMh/FH 

00005100 

88 

FVARIABLE 

(X575*10I/X183  AVU“  CORRECTINE  MMh/FH 

00005150 

89 

FVARIABLE 

(X107*10l/X183  IS  CORRECTIVE  MMH/FH 

00005200 

90 

FVARIABLE 

1X5216X522)  AVUM6IS  CORR  MMH/FH 

00005250 

91 

FVARIABLE 

(X75*10l/X183  DEPOT  CORRECTIVE  MMH/FH 

00005300 

92 

FVARIABLE 

(X5216X5226X519)  TOTAL  CORRECTIVE  MMh/FH 

00005350 

95 

VARIABLE 

FN50/1000  NO  MEN  OFF  AC  REPAIR  AT  IS 

00005600 

96 

VARIABLE 

FN50aiOOO  NO  MEN  OFF  AC  REPAIR  AT  DEPOT 

00005650 

97 

VARIABLE 

(X183*10)/X500  SYSTEM  MTBF 

00005500 

135 

variable 

FN31/1000 

00005550 

136 

VARIABLE 

FN56ai00 

00005600 

137 

VARIABLE 

FN56/K100 

00005650 

138 

VARIABLE 

( FN53/ 1000*FN366500) /lOOO 

OOU05700 

139 

VARIAoLE 

FN52/1000 

0C0C5750 

160 

VAR lAbLl 

FN52alOOO 

00005800 

161 

VARIABLE 

<FN6731000*FN366500)/1000 

00005B50 

162 

VARIABLE 

P28656 

00005900 

163 

VARIABLE 

P28695 

00005950 

166 

VARIABLE 

Chl6MtARMU 

00006000 

165 

VARIABLE 

260-P3-P2 

00006050 

166 

VARIABLE 

(MH6I26,P15)*RN1/1000)  AC  HRS  TO  TBC  CHANCE 

00006100 

167 

VARIABLE 

P60axi89  A/C  HRS  MCO  PHP  INTERVAL 

00006150 

168 

VAR lABLE 

P60aX190  A/C  HRS  MOC  PMI  INTERVAL 

00006200 

169 

VARIABLE 

MH6(P16,P12)*10-P60 

00006250 

150 

VARIABLE 

P60/I06MH6126t*12)  NEXT  TIME  I BO  REPLACEMENT  DUE 

00006300 

151 

VAR lABLE 

P16GK200 

00006350 

152 

VARIABLE 

P16CK800 

00006600 

153 

VARIABLE 

P16GK225 

00006650 

156 

VARIABLE 

P16GK825 

00006500 

155 

VAR  lABLE 

P16CK25C 

00006550 

156 

VARIABLE 

P16GK850 

00006600 

157 

VARIABLE 

P16CK275 

OOOOEiju 

158 

VAR  lABLE 

P16GK875 

uU006  7 00 

159 

VARIABLE 

P16GK300 

00006750 

160 

VARIABLE 

P16GK900 

0000680C 
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161 

VARIABLF 

P14CK325 

00006050 

162 

VARIABLE 

P14CK925 

00006900 

163 

VARIABLE 

P14EK350 

00006950 

164 

variable 

P14LK950 

000U7U0U 

165 

variable 

P14M75 

00007C5C 

166 

VARIABLE 

P14*975 

00007100 

167 

VARIABLE 

P14*400 

00007150 

168 

VARIABLE 

P14*1000 

00007200 

169 

VARIABLE 

P14+425 

0C007250 

170 

VARIABLE 

P14*1025 

00007300 

171 

VARIABLE 

P14^450 

00007350 

172 

variable 

P14*1050 

0O007400 

173 

VARIABLE 

P14+475 

00007450 

174 

VARIABLF 

P14*1075 

00007500 

175 

VARIABLE 

P144500 

0000 7550 

176 

VARIABLE 

P14«1100 

00007600 

177 

VARIABLE 

P5+525 

00007650 

178 

VARIABLE 

K300*P5 

00007700 

179 

VARIABLE 

K350^P5 

00007750 

180 

VARIABLE 

K400'RP5 

00007800 

181 

VARIABLE 

K450*P5 

00007850 

182 

VARIABLE 

X*UX*2*X*3  + X*4 

00007900 

183 

VARIABLF 

X325*X375+X425+X475 

00007950 

184 

VARIABLE 

P14+1175 

00008000 

185 

VARIABLE 

P14R575 

00008050 

186 

VARIABLE 

P14*1200 

00008100 

187 

VARIABLE 

P14*600 

00008150 

188 

VARIABLE 

P5*1125 

00008200 

189 

VARIABLF 

P14+550 

00008250 

190 

VARIABLF 

P14F1I50 

00008300 

191 

VARIABLE 

P206P22 

00008350 

192 

VARIABIE 

P14*1225 

00006400 

193 

VARIABLv^ 

K625FP6 

00008450 

194 

VARIABLE 

K1250*P14 

00008500 

195 

variable 

K650+P14 

00008550 

196 

VARIABLE 

P14RK1400  IDENTIFIES  BY  A/C  NORS 

TIME  SAVEVALUIS 

00008600 

204 

VARIABLF 

K1350RP14 

0U008650 

205 

VARIABLE 

K750*P14 

00008700 

206 

VARIABLE 

K1362RP14 

00008750 

207 

VARIABLE 

1425+P14 

00008800 

208 

VARIABLE 

1550*P14 

00008B5C 

209 

VARIABLE 

1450R-P14 

00008900 

210 

VARIABLE 

l575tP14 

OOOOB950 

211 

VARIABLF 

1475RP14 

00009000 

212 

VARIABLE 

U*1*X*2I*10 

00009050 

213 

VARIABLE 

P7/(X*3FX*4*X*51 

00009100 

214 

variable 

(X550^X575t *l0/(X2/b+X1450*Xl500I 

00009150 

215 

variable 

X275+X1450+X1500 

00009200 

216 

FVARIABLF 

IHXl(5tn-Xl-X3MlCOCO/HXH5,l)  BY 

AC  OPER 

AVAIL 

00009250 

217 

FVARIABLF 

IX191*NXl(5,ll-X675-X1425)*10000/IX191*HXH5,ll I AlO) 

00009300 

218 

FVARIABLE 

X*l*10000/X*2 

00009350 

2H 

FVARIABLF 

(X*ltX*2l*l000u/X*3 

00009400 

220 

FVAP lABLE 

(X250RX7861 10000/X225 

00009450 

221 

FVAP IA6LE 

X250*10000/X225 

00009500 

222 

VARIABLF 

P14RK525 

00009550 

223 

variable 

P14+X1125 

00009600 

22t 

VAR  IABLE 

v,l*L32*&30  + G37 

00009650 

22b 

VARIABLE 

(G31*(,32I»K80 

00009700 

?2t 

VARIABLE 

(G3l»G32I«560 

00009750 

221 

VARIABLE 

IG30rG37)*K80 

00009800 

22o 

VARIABLE 

(G30*G37I*K560 

00009850 

FVAR  IABLE 

IXl91*MXlIb,n-X62  5»*10000/IX19l*MX 

1(5. m 

INNER  AV 

00009900 

2 30 

FVARIABLE 

IX191*MX1( b,l)-X675»*10000/IXl9l*NX 

i<5,n) 

ACH  AVAIL 

00009950 

231 

variable 

( R‘n1»1000rRN1I  iX189  TINE  ON  THE  AI 

RCRAFT 

0001 OOOC 

2 34 

VAR IABLE 

X189-EN4  PMP  WINOCR 

00010050 

23b 

VARIABLE 

X190-FN4  PMI  UINOCW 

OOOIOlOO 

I 
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0— Jo 
11 


236 

VARIABLE 

237 

VARIABLE 

23«» 

VARIABLE 

•291 

VARIABLE 

292 

VARIABLE 

293 

VARIABLE 

29.. 

VARIABLE 

1 

BVARIABLE 

2 

BVARIABLP 

3 

BVARIABLE 

9 

BVARIABLE 

7 

BVARIABLE 

aa 

BVARIABLE 

11 

BVARIABLE 

19 

BVARIABLE 

17 

BVARIABLE 

18 

BVARIABLE 

19 

BVARIABLE 

M>3*X1652)/10  CCST  SUBROUTINE  VARIABLE 

1P4«X16531/10  CCST  SUBROUTINE  VARIABLE 

NX2IP2tlBI«HX2(P2.l9)«NX3(P2,2i)«HX2(P2.251 
R*3*S*3  STORAGfc  CAPACITY 

K«4*^S*A  STORAGE  CAPACITY 

(X22S*IOOOOt/XHl  CALLEO/ELOWN  MISSION  1 
|PI9*P3I 

V20*G'250  ARMY  OUMMYtPOST  FLT 

V20*G'250  DUMMY  NO  RESPOT 

V20*L* 1A5*V20'G‘75 

P25*E*K1359 

V20*L*250 

P5*E*9999*P26*E‘l  SPLIT  SHFT  OR  SEC.  MCS-COST  FLAG 
V20*L*K220*V20*G*K185  DAILY  OUT  OF  MAINT. 

P17'£*K8 

VUA'L*X194*PB'E‘  1AP26*E*1 

P19»E'2*P19*E*5 

V20'G*70*V20'L'230^tPK 


OOOICISO 

00010200 

000102SO 

OOOIOAOO 

000104S0 

OOOIOSOO 

OOOICSSU 

00010600 

00010650 

00010700 

00010750 

0001C800 

00010B50 

00010900 

00010950 

00011000 

00011050 

00011100 


3.  Variables  236  and  237  establish  the  available  work  center 
(MOS)  manpower  on  the  first  and  second  shifts,  respectively. 

P3  and  4 are  the  storage  capacities  for  the  first  and  second 
shift  AVUM  MOS  manpower.  X1652  and  X1653  are  the  total  num- 
ber first  and  second  shift  hours  that  AVUM  MOS  levels  are 
available  during  a simulation. 

4.  Variable  238  sums  the  total  number  of  unscheduled  maintenance 
man-hours  for  a given  AVUM  MOS;  MX2CP2,lf>)  is  the  AVUM  off 
aircraft  repair  time;  MX2(P2,19)  is  the  time  change  component 
labor;  MX2(P2,23)  is  the  remove/replace  and  on  aircraft  re- 
pair time;  MX2(P2,25)  is  the  corrosion  control  labor. 

5.  Variables  241  and  242  establish  the  capacity  of  AVUM  MOS 
storages  from  the  current  contents  of  the  storage  and  the 
remaining  available  capacity  of  the  storage.  P3  is  the  lo- 
cation of  the  first  shift  MOS  level  (storages  33  to  43),  and 
P4  is  the  location  of  the  second  shift  MOS  level  (storages 
44  to  5^  ) . 

6.  Variable  243  determines  the  percentage  of  the  missions  flown 
to  the  missions  called.  Savevalue  225  is  the  total  number 

of  missions  flown  (including  flights  which  were  later  aborted). 
Halfword  Savevalue  1 is  the  total  number  of  flights  called  for 
during  the  simulation.  The  variable  is  used  in  Table  VI, 

R’'IS  Cost  Summary. 

Variable  244  determines  the  overtime  maintenance  man-hours 
required  to  complete  an  AVUM  maintenance  action.  P19  is 
the  overtime  hours  and  P3  is  the  manpower. 

8.  Boolean  Variable  10  ensures  that  AVUM  maintenance  actions  which 
have  secondary  work  centers  (MOS)  assigned  or  require  more 
than  one  shift  to  be  completed  are  properly  accounted  for.  In 
such  instances,  there  are  two  transactions  for  one  maintenance 
action.  RVIO  therefore  permits  the  counter  for  the  event  to 
be  incremented  only  once. 
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l 

MATH  IX 

H, 10,22 

00011150 

1 

MATRIX 

H,2,2 

00C1I200 

MATRIX 

H,4S,V 

00011250 

t> 

MATRIX 

H,45,9 

00011300 

b 

MATRIX 

H,28,28 

INCREASE  SIZE  EOR  24  AC,  24  T60  ITEMS 

00011350 

1 

MATRIX 

H,tS,27  LOST 

f RTN  MATRIX,  COUNT  INSPECTIONS 

00011400 

1 

MATRIX 

X,1S,13 

00011450 

2 

MATRIX 

X,1S,27 

0001 150C 

3 

MATRIX 

X,12,U 

00011550 

MATRIX 

X,2,40 

00011600 

t> 

MATRIX 

X,45,9 

0001 1650 

1 

TABLE 

P17, 0,1,27 

NUMBER  INSPECTIONS  PERFORMED 

00011700 

2 

TABLE 

P8,0,l,ll 

FLIGHTS  BY  MISSION  TYPE 

00011750 

3 

TABLE 

P17,0,l,27 

NUMBER  INSPECTIONS 

00011800 

4 

TABLE 

P19,0,l,27 

MA'S  BY  WHEN  DISCOVERED 

00011850 

■> 

TABLE 

P3,0,1,4S 

MA*S  BY  SYSTEM 

00011900 

6 

TABLE 

P19,0,l,27 

MA«S  BY  SYSTEM  C WHEN  DISCOVERED 

00011950 

/ 

TABLE 

EN46,0, 1,300 

0 012000 

0 

TABLE 

VS6,20,20,125 

ORGANIZATIONAL  MTTR 

00012050 

9 

TABLE 

V60, 20, 20,250 

DOWNTIME  DISTRIBUTION 

00012100 

10 

TABLE 

EN44,0,1,300 

NORS  EVENTS 

00012150 

LI 

TABLE 

FN46,0, 1,300 

CANNIBALIZED  PARTS 

00012200 

12 

TABLE 

EN46, 0,1,300 

PARTS  CAUSING  NORS  OR  CANNIBA I ZAT lUN 

00012250 

13 

TABLE 

EN46,0,1,300 

PARTS  R AND  R BY  SERVICE  PLATOON 

00012300 

14 

table 

V56, 0,20, 125 

MTTR  FOR  OFF  AIRCRAFT  PART  REPAIR 

0001235U 

IS 

TABLE 

EN4o,0, 1.300 

00012400 

. STORAGE 

S33.40 

00012450 

XSTORAGE 

S34.0 

00O125U0 

X STORAGE 

S35,30 

00012550 

STORAGE 

S36.10 

00012600 

^ STORAGE 

S37,20 

00012650 

STORAGE 

S38.40 

00012700 

STORAGE 

S39-S43.C 

OC'0127  50 

— storage 

544,20 

00012800 

SrORAGE 

S45,0 

00012850 

^ STORAGE 

S46.0 

00012900 

V 

STORAGE 

S47.0 

OOOU950 

\ 

^STORAGE 

S48,20 

00013000 

VSTGRAGE 

549,20 

00013050 

' STORAGE 

S50-S54.0 

C0013100 

9.  Matrix  Halfword  7 was  added  to  tally  the  number  of  inspec- 
tions. Matrix  rows  represent  MOS  levels.  Column  2 is  pre- 
flight inspection;  column  8 is  intermediate  inspection  (PMI}- 
column  11  is  post-flight  inspection;  column  16  is  daily  in- 
spection; column  17  is  periodic  inspection  (PMP). 

10.  First  shift  AVUM  MOS  storages  33-43  and  second  shift  AVUM  MOS 
storages  44-54  each  contain  personnel  in  0.1-man  increments 
and  v.ere  optimized  for  the  given  execution: 


Storage 


Description 


53,44 

35.46 

36.47 

37.48 

38.49 

34,45, 

39-43, 

50-54 


1 

1 


On  aircraft  repair 

Periodic  inspection  and  off  aircraft  repair 

Pre-flight  inspection 

Daily  inspection 

Secondary  on  aircraft  repair 

N'o  personnel  assignments 


8 


1 

0 

2 

1 

16 

3 

0 

6 

0 

5 

0 

6 

1 

7 

1 

7 

13 

8 

1 

9 

2 

10 


FUNCTION 
1 1 
FUNCTION 
9V99992 
96967217 
FUNCTION 
9505071 
FUNCTION 
10  1 

FUNCTION 
7050051 
FUNCTION 
0 2 

FUNCTION 
8 2 

13  8 

6 16 

FUNCTION 
6 3 

FUNCTION 
FNIO  6 

FUNCTION 


P6t06  kECONFlOUKATlCN  5URT 
2 2 3 3 6 6 1 

F17tC8  GKOUNO  EVENT  PROA  OF  SUCCESS 


9999998 


99999911 


9998655 
0 

PSt02  PR08  NO  HA  DURING  FLIGHT 
950507 

P8t02  HISSICN  DURATION 
10 

P8t02  PROB  NO  ABORT/PA  IN  FLIGHT 
705005 

P17,D3  LINE  HAINT  HPR,  MOS,  TIHE 
10060216  200507 

P17.016  HAINTENANCE  PRIORITY 
3 3 7 6 2 5 

9 9 10  10  11  U 

16 

P17,D2  QUEUE  LIMIT  GRCUNO  EVENTS 
999999 

P19.F5  WHEN  DISC  SCRT  MULT  FAIL 
FNll  7 FNll  16  FN12  17 

RN1«02  PROB  MULT  HA/  HA  IN  PREFLIGHT 
0.99981  0.99992 

11  FUNCTION  RN1.D3  PROb  MULT  HA/  MA  IN  FLIGHT 

0.97681  0.99962  1.00003 

12  FUNCTION  KN1.D3  PROB  MULT  MA/  MA  IN  DAILY 

0.98671  0.99982  1.00003 

13  FUNCTION  RNI.D31  PROB  MULT 


99999912 


12 

5 


FN13 


6 

12 


MA/  MA  IN  PERIODIC 


0.00065 
0.05B611 
0.68U17 
0.906923 
0.996629 
0.999935 

15  FUNCTION 
2 FN16  6 

16  FUNCTION 


0.00116 

0.096912 

0.575318 

0.936226 

0.997030 


0.00327 
0.169913 
0.663319 
C. 958625 
0.996631 


0.00778 

0.217616 

0.761B20 

0.976026 

0.999132 


0.01669 

0.297815 

0.808621 

0.986227 

0.999633 


P19.E5  WHEN  DISC  SORT  SYSTEM  FAILURE 
FN17  7 FN17  16  FN18  17  FN19 
RNliOlO  PROB  SYS  MA/  MA  OUR  PREFLIGHT 

0.82635 


0.05361  0.06052  0.26773  0.82026 

0.93157  0.93998  0.95879  l.OOOOlO 

17  FUNCTION  RNI.DIO  PROB  SYS  MA/  MA  UUR  FLIGHT 

0.0397:  0.06682  0.28963  0.76106  0.76575 

0.86557  0.87898  0.89999  1.000010 

18  FUNCTION  RNliUlO  PROB  SYS  MA/  MA  OUR  DAILY 

0.06881  0.0586?  0.20723  0.85796  0.86395 

0.96877  0.97628  0.98989  1.000010 

19  FUNCTION  RNl.DlO  PROB  SYS  MA/  MA  OUR  PERIODIC 


0.06651 

0.96567 


0.06992 

0.96988 


0.22813 

0.98659 


0.87036 

1.000010 


0.87775 


0.032510 

0.387316 

0.862822 

0.990628 

0.999836 


0. 86666 


0.77716 


0.88086 


0.88966 


C0U13150 

0 00013200 
00013250 

99999900013300 

00013350 

00013600 

00013650 

00013500 

00013550 

00013600 

00013650 

0OO137CO 

00013750 

00013800 

1 00013850 

6 00013900 

00013950 
00016000 
00016050 
00016100 
00016150 
00016200 
00016250 
0001S300 
00016350 
00016600 
00016650 
0001650C 
0001*.550 
00016600 
0001665C 
00016700 
00016750 
CC016800 
00016850 
00016900 
00016950 
00015000 
00015CSO 
00015100 
00015150 
00015200 
00015250 
00015300 
00015350 
00015600 
00015650 
00015500 


22 

FUNCTION 

P3iL10  NUMBER  OF 

ELEMENTS  IN 

SYSTFMS 

C0015550 

1 

11 

2 

3 

3 

15 

6 

31 

5 

6 

6 

10 

00015600 

7 

9 

8 

6 

9 

7 

10 

12 

00015o50 

23 

Function 

P19, 

F5  WHEN 

DI  SC 

SORT 

ELEMENT 

failure 

00015700 

2 

FN26 

6 

FN25 

7 

FN25 

16 

FN26 

17 

FN2  7 

00015750 

26 

FUNC 

T ION 

FN66 

,L106  PROB  EL 

MA/ 

SYS  MA 

preflight 

00015600 

101 

155 

102 

26 

103 

5o 

106 

67 

105 

106 

106 

77 

00015850 

107 

o7 

108 

85 

109 

96 

110 

139 

111 

110 

201 

258 

00015900 

202 

655 

203 

86 

301 

39 

302 

167 

303 

566 

3 06 

2 

00015950 

305 

0 

306 

15 

307 

0 

308 

20 

309 

67 

310 

29 

OOOloOOO 

311 

27 

312 

3 

313 

51 

316 

22 

315 

30 

601 

31 

00016050 

602 

3 

603 

63 

606 

28 

605 

2b 

606 

0 

607 

161 

C0016100 

608 

93 

609 

2 

610 

12 

611 

77 

612 

33 

613 

3 

OUOlbl 5U 

616 

0 

615 

66 

616 

7 

617 

1 

618 

6 

619 

11 

00016200 

620 

L 1 

621 

67 

622 

0 

623 

30 

626 

6 

625 

11 

00016250 

626 

73 

62  7 

1 

62b 

12 

629 

1 70 

6 30 

25 

631 

13 

00016  300 

501 

3^6 

502 

162 

503 

228 

506 

286 

601 

165 

602 

laO 

OOOU350 

603 

79 

606 

bO 

605 

131 

606 

6o 

607 

92 

608 

67 

00016600 

609 

67 

61C 

73 

701 

68 

702 

337 

703 

133 

706 

26 

00016650 

705 

33 

706 

30 

707 

189 

708 

l55 

709 

30 

801 

611 

000  16500 

802 

111 

803 

63 

b06 

215 

901 

l‘*H 

902 

1 75 

903 

6 5 

OuOl  65‘>0 

906 

66 

90  5 

1 1 1 

906 

62 

907 

615 

1001 

67 

1002 

. ;o 

0001 6600 

1003 

65 

1006 

62 

1005 

0 

1006 

0 

1007 

273 

1008 

171 

00016650 

1009 

85 

1010 

86 

1011 

35 

1012 

76 

00016700 

69 


25 

fUNCTION 

FN46t 

L106  PKOB  i-L 

NA/  SYS  HA 

flight 

00016750 

101 

171 

102 

5 

103 

68 

104 

90 

105 

68 

106 

65 

00016800 

107 

66 

108 

121 

109 

179 

no 

66 

111 

101 

201 

360 

00016850 

202 

640 

203 

n 

301 

52 

302 

139 

303 

556 

304 

2 

OOU16900 

305 

8 

306 

12 

307 

5 

308 

19 

309 

56 

310 

43 

U0016950 

311 

41 

312 

4 

313 

12 

314 

20 

315 

32 

401 

46 

00017000 

402 

1 

403 

43 

404 

0 

405 

7 

406 

0 

407 

152 

00017050 

408 

75 

40V 

2 

410 

19 

411 

100 

412 

6 

413 

5 

00017100 

414 

7 

415 

46 

416 

10 

417 

1 

418 

8 

419 

20 

00017150 

420 

12 

421 

82 

422 

6 

423 

37 

424 

4 

425 

14 

00017200 

426 

101 

427 

1 

428 

17 

429 

137 

430 

31 

431 

11 

00017250 

501 

389 

502 

43 

503 

417 

504 

152 

601 

180 

602 

307 

00017300 

603 

67 

604 

90 

605 

70 

606 

34 

607 

128 

6u8 

65 

0001 7350 

609 

11 

610 

47 

701 

74 

702 

223 

703 

159 

704 

40 

00017400 

705 

63 

706 

29 

707 

343 

7C8 

59 

709 

31 

801 

651 

0001745C 

802 

74 

803 

70 

804 

206 

901 

175 

902 

411 

903 

0 

00017500 

904 

35 

905 

33 

906 

147 

907 

200 

1001 

37 

1002 

107 

00017550 

1003 

42 

1004 

58 

1005 

9 

1006 

51 

1007 

273 

1008 

156 

00017600 

1009 

62 

1010 

79 

1011 

32 

1012 

73 

00017650 

26 

FUNCTION 

FN46f 

L106  PKOR  EL 

HA/  SYS  HA 

DAILY 

00017700 

101 

202 

102 

8 

103 

89 

104 

103 

105 

106 

106 

86 

0001/750 

107 

47 

108 

64 

109 

73 

110 

122 

111 

99 

201 

207 

0001 7oOO 

202 

580 

203 

213 

301 

25 

302 

212 

303 

532 

304 

3 

00017850 

305 

7 

306 

30 

307 

10 

308 

16 

309 

44 

310 

28 

00017900 

'311 

20 

312 

4 

313 

26 

314 

30 

315 

14 

401 

22 

00C17950 

402 

3 

403 

47 

404 

44 

405 

36 

406 

1 

407 

174 

00013000 

408 

99 

409 

2 

410 

5 

411 

69 

412 

9 

413 

3 

00018050 

414 

0 

415 

26 

416 

6 

417 

1 

418 

4 

419 

4 

00018100 

420 

8 

421 

79 

422 

0 

423 

31 

424 

1 

425 

10 

00018150 

426 

55 

427 

1 

428 

10 

429 

219 

430 

24 

431 

9 

00018200 

501 

602 

502 

177 

503 

142 

504 

79 

601 

244 

602 

0 

00018250 

603 

25 

604 

110 

605 

172 

606 

55 

607 

24 

60B 

119 

00018300 

609 

139 

610 

114 

7C1 

0 

702 

315 

703 

160 

704 

13 

00018350 

705 

15 

706 

37 

707 

181 

708 

258 

709 

20 

801 

678 

00018400 

802 

0 

803 

103 

804 

219 

901 

264 

902 

0 

903 

16 

00018450 

904 

16 

905 

40 

906 

0 

907 

664 

1001 

86 

1002 

122 

00018500 

1003 

29 

1004 

44 

1005 

0 

1006 

2 

1007 

151 

1008 

263 

00018550 

1009 

79 

1010 

149 

1011 

26 

1012 

29 

00016600 

27 

FUNCTION 

FN46, 

tU06 

PRUB  EL 

HA/  SYS  MA 

PERIODIC 

00018650 

101 

106 

102 

45 

103 

40 

104 

45 

105 

124 

106 

82 

00018700 

107 

114 

108 

75 

109 

59 

110 

188 

111 

122 

201 

184 

00018750 

202 

730 

203 

85 

301 

27 

302 

180 

303 

518 

304 

1 

OOU188O0 

305 

1 

306 

11 

307 

14 

308 

23 

309 

34 

310 

11 

00018850 

311 

10 

312 

1 

313 

111 

314 

22 

315 

33 

401 

26 

00018900 

402 

4 

403 

40 

404 

37 

405 

36 

406 

6 

407 

158 

0001895U 

408 

99 

409 

2 

410 

11 

411 

65 

412 

60 

413 

1 

00019000 

414 

4 

415 

53 

416 

6 

41  7 

1 

416 

0 

419 

9 

00019050 

420 

9 

421 

51 

422 

5 

423 

24 

424 

4 

425 

9 

C0019100 

426 

63 

427 

1 

428 

9 

429 

l65 

4^0 

20 

431 

16 

00019150 

501 

190 

502 

222 

503 

153 

504 

434 

79 

602 

0 

00019200 

603 

140 

604 

36 

605 

246 

606 

148 

607 

53 

608 

39 

00019250 

609 

151 

610 

110 

7C1 

99 

7C2 

474 

703 

65 

704 

14 

0CO19300 

705 

12 

706 

29 

707 

47 

708 

225 

709 

36 

801 

454 

00019350 

802 

295 

803 

16 

804 

235 

901 

85 

902 

0 

903 

98 

00019400 

904 

62 

905 

209 

9C6 

0 

9C7 

545 

1001 

76 

1002 

128 

00019450 

1003 

41 

1004 

60 

1005 

30 

10C6 

232 

1007 

127 

1008 

119 

00019500 

1009 

45 

1010 

50 

1011 

35 

1012 

56 

00019550 

36 

FUNCTION 

KN5,i 

124  tXPCNtNT: 

AL  DISTRIBUTION 

00019600 

0 

0 

.1 

104 

.2 

222 

. 3 

355 

.4 

509 

.5 

690 

0u019o50 

.6 

915 

.7 

1200 

. 75 

1380 

.8 

1600 

.84 

1830 

.88 

2120 

0001 97C0 

.9 

2300 

.92 

2520 

.94 

2810 

.95 

2990 

.96 

3200 

.97 

3500 

00019/50 

.98 

5900 

.99 

4600 

.995 

5300 

.998 

6200 

.999 

7000 

.9998 

8000 

00019800 

37 

FUNCTION 

FN46 

.LlOo 

PERCENT 

REM  C 

REP, 

PERCENT  DEP 

HPR/RUD 

00019850 

101 

171000102 

793000103 

288000104 

828000105 

5360UO106 

575O0000J19900 

107 

486C0010R 

515000109 

2010001 10 

538000111 

880999^01 

89300000019950 

202 

8<  3C00203 

786CCC3C1 

205000302 

965999^03 

5O1999304 

21 199900020u00 

305 

146999306 

641999J07 

225000306 

95000C309 

818000310 

74300000020050 

3H 

766999312 

750999313 

968000314 

848000315 

665000401 

695000C0020100 

402 

958C00403 

831999404 

996000405 

998000406 

931000407 

97500000020150 

408 

943999409 

56000  410 

945000411 

971999412 

963000413 

14500000020200 

414 

773000415 

890999416 

920000417 

5260CC418 

941000419 

2 330000002 0250 

420 

9460004^ 1 

92  1999422 

7lo000423 

495000424 

888000425 

9 730000o0t  030!i 

70 


<►^6  341<<VV42?  750000426  92600042S  980999430  84099V431  903999000<:  0350 

501  106000502  1280005C3  666000504  866C00601  480000602  64000000020400 

603  866000604  921000605  943000606  745000607  491000608  72300000020450 

609  358000610  596000701  905000702  200000703  856000704  92600000020500 

705  716000706  743C007C7  923000708  9&1 000709  781000801  11600000020550 

802  931000803  640000804  923000901  333000902  926000903  10000000020600 

904  768000905  998000906  500000907  836U001001  6850001002  15500000C2C660 

1003  7650001004  7030001005  1430001006  7030001007  4030001008  39100000020700 

1009  3210001010  4330001011  7210001012  845000  00020750 

38  FUNCTION  P22t0106  PRCB  OF  PART  AVAILABILITY  00020800 


101 

990 

102 

990 

103 

990 

104 

990 

105 

990 

106 

990 

00020850 

107 

990 

108 

990 

105 

990 

110 

990 

111 

990 

201 

990 

00020900 

202 

990 

203 

990 

301 

990 

302 

?90 

303 

990 

304 

990 

00020950 

305 

990 

306 

990 

307 

990 

308 

990 

309 

990 

310 

990 

00021000 

311 

990 

312 

990 

313 

990 

314 

990 

315 

990 

401 

990 

00021050 

402 

990 

403 

990 

404 

990 

405 

990 

406 

990 

407 

990 

00021100 

408 

990 

409 

990 

410 

990 

411 

990 

412 

990 

413 

Q90 

00021150 

414 

990 

415 

990 

416 

990 

417 

990 

418 

990 

419 

990 

0002  1<  00 

420 

990 

421 

990 

422 

990 

423 

990 

424 

990 

425 

990 

00021250 

426 

99U 

427 

990 

428 

990 

425 

990 

430 

990 

431 

990 

00021300 

501 

990 

502 

990 

503 

990 

504 

990 

601 

990 

602 

990 

000^1350 

603 

990 

604 

590 

605 

990 

606 

990 

607 

590 

608 

990 

00021400 

609 

990 

610 

990 

701 

990 

702 

990 

703 

990 

704 

990 

00021450 

705 

990 

706 

990 

707 

990 

706 

990 

709 

990 

801 

990 

0002  1500 

802 

990 

803 

990 

804 

990 

901 

990 

902 

990 

903 

990 

00021550 

904 

990 

905 

990 

906 

990 

907 

990 

1001 

990 

1002 

990 

00021600 

1003 

990 

1004 

990 

1005 

990 

1006 

990 

1007 

990 

1C08 

990 

00021650 

1009 

99C 

1010 

990 

1011 

990 

1012 

990 

00021700 

39 

FUNCTION 

Pl,E3 

VARIABLE  SORT  FOR 

Mt)S 

00021750 

1 

V50 

2 

V49 

3 

V48 

00021800 

40 

FUNCTION 

FN46«I 

L106 

AVUH  OFF 

AC  MOSt  2M0S«  IMOS  ON  i 

AC 

00021850 

101 

20601 

102 

20601 

103 

20601 

104 

20601 

105 

20601 

106 

20601 

00021900 

107 

20601 

108 

20601 

109 

20601 

110 

206C1 

111 

20601 

201 

20601 

00021950 

202 

20601 

203 

20601 

301 

20601 

302 

20601 

303 

20601 

304 

20601 

00022000 

305 

20601 

306 

20601 

307 

20601 

306 

20601 

309 

20601 

310 

20601 

00022050 

311 

20601 

312 

20601 

313 

20601 

314 

20601 

315 

20601 

401 

20601 

00022100 

402 

20601 

403 

20601 

404 

20601 

405 

20601 

406 

20601 

407 

20601 

00022150 

408 

20601 

409 

20601 

410 

20601 

411 

20601 

412 

20601 

413 

2U601 

00022200 

414 

20601 

415 

20601 

416 

20601 

417 

20601 

418 

20601 

419 

20601 

00022250 

420 

20601 

421 

20601 

422 

20601 

423 

20601 

424 

20601 

425 

20601 

00022300 

426 

20601 

427 

20601 

428 

20601 

425 

20601 

430 

20601 

431 

20601 

00022350 

501 

20601 

502 

20601 

503 

20601 

504 

20601 

601 

20601 

602 

20601 

00022400 

603 

20601 

604 

20601 

605 

20601 

606 

20601 

607 

20601 

608 

20601 

00022450 

609 

20601 

610 

20601 

701 

206C1 

7C2 

206CI 

703 

20601 

704 

20601 

OC02250C 

705 

20601 

706 

20601 

7C7 

20601 

708 

20601 

70> 

20601 

801 

20601 

00022550 

802 

20601 

803 

20601 

604 

20601 

901 

20601 

902 

20601 

903 

20601 

000226C0 

904 

206CI 

905 

206C1 

906 

20601 

907 

20601 

1001 

20601 

1002 

20601 

00022650 

1003 

20601 

1004 

206C1 

1005 

20601 

1006 

20601 

1007 

2U601 

1008 

20bul 

00022700 

1009 

cObOl 

lOlO 

20601 

lOll 

20601 

1012 

20601 

00022750 

41 

FUNCTION 

Pltt3 

VARlAUlt  SOkT  manpower  I 

OEF 

00O2280C 

1 

V54 

2 

V5  3 

3 

V52 

00622850 

42 

FUNCTION 

FN46fl 

L106 

AVUM  MPW  CFF 

AC  RPR 

, 2MU5 

f IMUS 

RCP  1 

* Pk 

00C22900 

101 

101010102 

102020103 

104040104 

102020.05 

102020106 

10101000022550 

107  101010108  102020109  1U2020110  103030111  103030201  1020200002 jOOO 
202  102020203  102020301  102020302  102020303  203030304  2020200002 3050 
305  201010306  201010307  202020308  101010305  101010310  10101000023100 
311  101010312  101010313  101010314  101010315  101010401  2020200002 3 1 50 
402  202C20403  101010404  101010405  101010406  202020401  2020200002 3200 
408  202020409  101010410  101010411  303030412  101010413  2020200002 3250 
414  101010415  202020416  202020417  101010416  101010419  10 1 0100002 330C 
420  202020421  202020422  101010423  202020424  101010425  10101000023350 
426  20<:0204^7  101010428  101010425  101C10430  1U1010431  10101000023400 
501  202020502  10101050.1  101010504  101010601  101010602  10101000023450 
603  101010604  101010605  101010606  101010607  101010608  10101000023500 
609  101010610  101010701  101010702  101010703  101010704  10101000023550 
705  101010706  101010707  1010»0708  101010709  101010801  1 0 1 010CC02 3600 
802  101010803  202020804  101010901  101010902  101010903  1 0 10100002 365C 
904  101010905  101010906  101010907  1020201001  1010101002  10101000023700 
1003  1010101004  1010101005  1010101006  1010101007  1010101008  10 10 1 00002 3 750 
1009  1010101010  1010101011  1010101012  101010  00023800 


1 


71 


43 

FUNCTION 

FN46.L106  1 

AVUM  OFF  AC  NENT,  AVUM  RCR  NFNT 

00023850 

lot 

23031 

102 

63118 

103 

1481 

104 

43233 

105 

11035 

106 

11042 

00023900 

107 

13016 

108 

170C8 

109 

15029 

110 

37048 

111 

14029  201 

30021 

00023950 

202 

18049 

203 

44033 

301 

8020 

302 

56 

303 

15116 

304 

14024500024000 

305 

140106306 

55132 

307 

42015 

308 

18018 

309 

33029 

310 

18049 

00024050 

311 

20070 

312 

21045 

313 

13014 

314 

28029 

315 

23011 

401 

44 

00024100 

402 

35 

403 

40025 

404 

1021 

405 

17037 

406 

1023 

407 

33 

00024150 

408 

21 

409 

35 

410 

38 

411 

9031 

412 

21011 

413 

85205 

00024200 

414 

23015 

415 

50018 

416 

136 

417 

16 

418 

25 

419 

43 

00024250 

420 

26050 

421 

9019 

422 

8010 

423 

10077 

424 

40 

425 

17042 

00024300 

426 

60024 

427 

46 

428 

28 

429 

25032 

430 

13049 

431 

40 

00024350 

501 

15035 

502 

15022 

503 

15058 

504 

18025 

601 

9016 

602 

6008 

00024400 

603 

31017 

604 

32013 

605 

9016 

606 

non 

607 

20009 

608 

11016 

00024450 

609 

13023 

610 

1015 

7Cl 

1021 

702 

55013 

7C3 

5009 

704 

10024 

00024500 

705 

28021 

706 

20012 

707 

23007 

708 

1009 

709 

6009 

801 

19025 

00024550 

802 

21018 

803 

105345804 

25059 

901 

10013 

902 

13011 

903 

33046 

0C024600 

904 

170C7 

905 

22025 

906 

23016 

907 

25044 

tool 

20004 

1002 

4006 

00024650 

1003 

4003 

1004 

12006 

1005 

40 19 

1006 

12004 

1007 

25008 

1008 

20006 

00024700 

1009 

29011 

1010 

25011 

1011 

6007 

1012 

12004 

00024750 

44 

FUNCTION 

P22.0106  TEST  HOP 

REQUIRED? 

00024800 

101 

0 

102 

0 

103 

0 

104 

0 

105 

0 

106 

0 

00024850 

107 

0 

108 

0 

109 

0 

lie 

0 

111 

0 

201 

0 

00024900 

202 

0 

203 

0 

301 

0 

302 

0 

303 

1 

304 

1 

00024950 

305 

1 

306 

0 

307 

0 

308 

0 

309 

0 

310 

1 

00025000 

311 

1 

312 

1 

313 

0 

314 

1 

315 

0 

401 

1 

00025050 

402 

1 

403 

0 

404 

0 

405 

0 

406 

0 

407 

1 

00025100 

408 

1 

409 

1 

410 

0 

411 

1 

412 

0 

413 

1 

00025150 

414 

0 

415 

1 

416 

1 

417 

0 

418 

0 

419 

0 

00025200 

420 

1 

421 

1 

422 

0 

423 

1 

424 

0 

425 

0 

00025250 

426 

1 

42? 

0 

428 

0 

429 

1 

430 

1 

431 

1 

00025300 

501 

1 

502 

0 

503 

I 

504 

1 

601 

0 

602 

0 

00025350 

6C3 

0 

604 

0 

605 

0 

606 

0 

607 

0 

608 

0 

00025400 

609 

0 

610 

0 

701 

0 

7C2 

0 

703 

0 

704 

0 

00025450 

705 

0 

706 

0 

707 

0 

708 

0 

709 

0 

801 

0 

00025500 

802 

0 

803 

0 

804 

1 

901 

0 

902 

0 

903 

0 

00023550 

904 

0 

905 

0 

906 

0 

907 

0 

1001 

0 

1002 

0 

00025600 

1003 

0 

1004 

0 

1005 

0 

1006 

0 

1007 

0 

1008 

0 

00025650 

1009 

0 

lOlO 

0 

ion 

0 

1C12 

0 

00025700 

45 

FUNCT ION 

P22.0106  NORS  ObLAY 

00025750 

101 

15 

102 

15 

103 

15 

104 

15 

105 

15 

106 

15 

00025800 

107 

15 

108 

15 

109 

25 

lie 

240 

111 

240 

201 

10 

00025850 

202 

10 

203 

10 

301 

120 

302 

360 

303 

360 

304 

360 

00025900 

305 

240 

306 

240 

307 

15 

308 

no 

309 

110 

310 

10 

00025950 

311 

10 

312 

10 

313 

10 

314 

15 

315 

240 

401 

240 

00026000 

402 

10 

403 

15 

404 

15 

405 

15 

406 

15 

407 

120 

00026050 

408 

120 

409 

120 

410 

120 

411 

120 

412 

10 

413 

100 

00026100 

414 

10 

415 

50 

416 

50 

417 

50 

418 

10 

419 

10 

00026150 

420 

20 

421 

15 

422 

120 

423 

15 

424 

60 

425 

20 

00026200 

426 

10 

427 

30 

428 

10 

429 

40 

430 

40 

431 

40 

00026250 

501 

30 

502 

10 

503 

15 

504 

15 

601 

20 

602 

20 

00026300 

603 

20 

604 

20 

605 

20 

606 

20 

607 

20 

608 

20 

00026350 

609 

20 

610 

20 

701 

10 

702 

10 

703 

10 

704 

10 

00026400 

705 

10 

706 

10 

707 

20 

708 

10 

709 

10 

801 

30 

OU026450 

B02 

31. 

8C3 

30 

804 

30 

901 

100 

902 

50 

903 

20 

o: 

904 

30 

905 

10 

906 

10 

907 

lu 

1001 

10 

1002 

lO 

000^:6550 

1003 

10 

1004 

10 

1005 

10 

10C6 

10 

1007 

10 

1008 

10 

0002ob00 

1009 

10 

1010 

10 

1011 

10 

1012 

10 

00026650 

46 

FUNCTION 

P22.0106  ELEMENT  TABLE 

CODE 

00026700 

101 

1 

102 

2 

103 

3 

104 

4 

105 

5 

106 

6 

00026750 

107 

7 

108 

8 

109 

9 

110 

10 

111 

11 

201 

12 

0UU26800 

202 

13 

203 

14 

301 

15 

302 

16 

303 

17 

304 

18 

00026850 

305 

19 

306 

20 

307 

21 

308 

22 

309 

23 

310 

24 

00026900 

311 

25 

312 

26 

313 

27 

314 

28 

315 

29 

401 

30 

00026950 

402 

31 

403 

32 

404 

33 

405 

34 

4 06 

35 

407 

36 

CC02  7C00 

408 

37 

409 

38 

410 

39 

411 

40 

412 

41 

413 

4? 

OC027050 

414 

43 

415 

44 

416 

45 

417 

46 

418 

47 

419 

48 

0002  7100 

420 

49 

421 

50 

422 

51 

423 

52 

424 

53 

425 

54 

00027150 

426 

55 

427 

56 

428 

57 

429 

58 

4 30 

59 

431 

60 

0002/200 

501 

61 

502 

62 

503 

63 

504 

64 

601 

65 

602 

bb 

0002  72  50 

603 

67 

604 

68 

605 

69 

6C6 

70 

607 

71 

608 

72 

00027300 

609 

73 

610 

74 

701 

75 

102 

76 

703 

77 

704 

78 

0002  7350 

705 

79 

70b 

80 

707 

81 

708 

82 

709 

83 

801 

84 

0002  7400 

802 

85 

803 

86 

804 

87 

901 

88 

902 

89 

903 

90 

0002  7450 

72 


904 

91 

905 

92 

906 

93 

907 

94 

1001 

95 

1002 

96 

0002 7500 

1003 

97 

1004 

98 

1005 

99 

1006 

100 

1007 

101 

1008 

102 

0002 7550 

1009 

103 

1010 

104 

1011 

105 

1012 

106 

00027600 

47 

FUNCTION 

FN46, 

L106 

PROB  fcL 

REP, 

NEHT 

AVIM  KP 

0002 7650 

101  99C0V4102  998050103  10581  104  998108105  998034106  99bU7100027700 
107  950026108  998049109  990063110  990133111  990026201  9V00220U027750 
202  990017203  950044301  990019302  950215303  950049304  94618000027800 
305  950180306  990053307  99G019308  990032309  990022310  9900260002 7850 
311  990035312  990030313  990013314  990013315  998018401  1000  00027900 
402  1000  403  998030404  1001  405  998023406  50010  407  99827500027950 
408  998030409  1000  410  1000  411  998022412  998011413  99011100028000 
414  990000415  998085416  1000  417  1000  418  1000  419  1000  00028050 
42C  998033421  998028422  998010423  990040424  990038425  10015  00028100 
42^  998053427  10000  428  10011  429  998035430  998023431  99802800028150 


501 

990020502 

10021 

503 

990010504 

1U55  601 

5007 

602 

99800600028200 

3 

603 

100011604 

100C116C5 

100013606 

50010  607 

50010 

608 

50010 

00028250 

h 

j: 

609 

990013610 

500C1 

701 

5001 

702 

998032703 

950004704 

1010 

00028300 

k 

705 

998015706 

990010707 

950025708 

990005709 

500005801 

99001400028350 

802 

990020803 

950185804 

99C030901 

500010902 

890010903 

99004000028400 

c 

904 

990013905 

508037906 

598011907 

998C261001 

9980151002 

9980060002H450 

\ 

1003 

9980051004 

9980141005 

95000610C6 

990C141007 

9980101008 

99601 100028500 

1009 

9980171010 

9980121011 

9980081012 

998C14 

000^:8550 

48 

FUNCTION 

P22,02  PRUB 

OF  CANNIBAL 

12AT10N 

00028600 

•1 

101 

999 

1012 

999 

0002865C 

49 

FUNCTION 

FN46, 

L106  MEMT  DEPOT  REPAIR 

00028700 

\ 

101 

0 

102 

0 

103 

0 

104 

0 105 

0 

106 

0 

00028750 

107 

0 

108 

0 

109 

0 

lie 

0 111 

130 

201 

0 

00028600 

202 

0 

203 

0 

301 

0 

302 

115  303 

3450 

304 

3000 

00028O50 

305 

30C 

306 

BOO 

307 

0 

308 

0 309 

C 

310 

0 

00028900 

311 

16C 

312 

180 

313 

0 

314 

0 315 

0 

401 

0 

00028950 

402 

0 

403 

300 

404 

0 

405 

0 406 

0 

407 

0 

OC029000 

408 

1000 

409 

100 

410 

80 

411 

687  412 

0 

413 

0 

0CC2905O 

} 

414 

0 

415 

100 

416 

0 

417 

0 418 

0 

419 

0 

00029100 

420 

0 

421 

210 

422 

0 

423 

0 424 

0 

425 

0 

00029150 

426 

240 

427 

0 

428 

0 

429 

180  430 

100 

431 

80 

00029200 

501 

0 

502 

0 

503 

0 

504 

0 601 

0 

602 

U 

00029250 

603 

0 

604 

0 

605 

0 

606 

0 607 

0 

608 

0 

00029300 

609 

0 

610 

0 

701 

0 

7C2 

0 703 

0 

704 

0 

00029350 

} 

705 

0 

706 

0 

70  7 

0 

708 

0 709 

0 

801 

0 

CCC2940C 

j 

802 

0 

803 

0 

804 

0 

901 

0 902 

0 

903 

0 

00029450 

904 

0 

905 

0 

906 

0 

907 

0 1001 

0 

1002 

0 

00029500 

i 

t 

1003 

0 

1004 

0 

1005 

0 

10C6 

0 1007 

0 

1008 

0 

00029550 

1009 

0 

lOlO 

0 

lOll 

0 

1012 

0 

00029600 

, 

50 

FUNCTION 

FN46»L106  MPR  CFF 

AC  RPR  AVIM, DEPOT 

00029O5C 

101 

lOOOC 

102 

10000 

103 

lOCOO 

104 

lOOOO  105 

lOOOO 

106 

10000 

00029700 

107 

lOOOO 

108 

10000 

109 

10000 

UO 

10000  111 

10020 

201 

lOOOO 

00029750 

202 

10000 

203 

10000 

301 

10000 

302 

10020  303 

20040 

304 

20030 

00029800 

305 

20020 

306 

20020 

307 

20000 

308 

lOOCO  309 

10000 

310 

lOCOO 

0C029850 

311 

lOOlO 

312 

10020 

313 

lOOOO 

314 

lOOOO  315 

lOOOC 

401 

20000 

00029900 

4C2 

20000 

403 

IU02C 

404 

10000 

405 

10000  406 

2000C 

407 

20000 

0CC29950 

408 

20010 

409 

10020 

410 

lOOlO 

411 

30030  412 

10000 

413 

200O0 

OC03000U 

414 

10000 

415 

20010 

418 

20000 

417 

lOOOO  418 

lOOOO 

4 19 

lOOOO 

0C03005O 

420 

20C00 

421 

20020 

422 

lOOOO 

423 

200CC  424 

10000 

425 

lOOOO 

00030100 

426 

20020 

427 

lOOOO 

42d 

10000 

42S 

10020  430 

lOOlO 

431 

lOOlO 

00030150 

501 

20000 

502 

10000 

503 

lOOOO 

504 

10000  601 

lOOOC 

6C2 

10000 

Ou 03  C200 

603 

lOCOO 

604 

iOOCO 

6C5 

lOOOO 

606 

10)00  607 

10000 

608 

10000 

00030250 

609 

10000 

610 

lOUOO 

701 

lOOOO 

702 

lOOOO  703 

10000 

704 

10000 

00030300 

705 

10000 

706 

lOOOO 

707 

lOOOO 

708 

lOOCO  709 

lOOOO 

801 

lOOCO 

0C030350 

802 

10000 

803 

20000 

804 

10000 

901 

lOOOO  902 

10000 

903 

10000 

00030400 

904 

10000 

905 

10000 

906 

lOOOO 

907 

lOOOO  1001 

lOOOC 

1002 

lOOOO 

00030450 

1003 

lOOOC 

1004 

lOOCO 

1005 

lOOOC 

1006 

10300  1007 

lOOOC 

1008 

lOOuO 

00030500 

1009 

tOOOO 

1010 

lOOCO 

1011 

10000 

1012 

lOOOO 

0UO3055O 

52 

FUNCTION 

FN46iLl06  PROS  AVUM  RPR/R6R,  Pi:08  AVIM  RPR/RCO 

00030600 

101 

405999102 

1999 

103 

55  999 

104 

361999105 

545999106 

49099900030650 

107 

533999108 

383999109 

341999110 

226999111 

371841201 

65199900030700 

202 

901999203 

933999301 

720999302 

0255333C3 

26077 

304 

26077 

00C3O75O 

305 

20C87a306 

196751307 

851999308 

>16999309 

736999310 

49699900030800 

311  33350031<:  221742313  95d99-<314  881999315  9o0999401  511999000^0e50 
402  641999403  250079404  50C9994C5  600999406  600999407  355999000"'0900 
408  340515409  258999410  788999411  64  412  873999413  15199900030950 
414  856999415  533571416  81999  417  966999418  371999419  99699900031000 
420  281999421  65o726422  923999423  848999424  658999425  84899900031050 
426  341848427  768999428  600999429  123149430  296857431  71067  00031100 
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501 

423999502 

376999503 

711999504 

363999601 

568999602 

603 

966999604 

918999605 

881999606 

648999607 

448999606 

609 

863999610 

478999701 

986999702 

706999703 

540999704 

705 

638999706 

846999707 

751999708 

963999709 

663999801 

602 

741999803 

480999804 

871999901 

461999902 

556999903 

904 

266999905 

631999906 

353999907 

6669991001 

95999 

1002 

1003 

68999 

1004 

1259991005 

5769991006 

6959991007 

1369991008 

1009 

1869991010 

3669991011 

91999 

1012 

95999 

53 

(■UNCTION 

FN46,I 

L106 

HENT  ON 

AC  REPAIR 

101 

87C00 

102 

21000 

103 

35000 

104 

40000 

105 

36000 

10b 

107 

14000 

108 

32000 

109 

76000 

110 

62000 

111 

49000 

201 

202 

560C0 

203 

20000 

301 

16000 

302 

15000 

303 

36000 

304 

3C5 

109000306 

92CCC 

307 

17000 

308 

5000 

309 

32000 

310 

311 

26000 

312 

25000 

313 

1000 

314 

27000 

315 

59000 

401 

402 

0 

403 

53000 

404 

0 

405 

0 

406 

23000 

407 

408 

85000 

409 

0 

410 

20000 

411 

33000 

412 

22000 

413 

414 

11000 

415 

71000 

416 

0 

417 

4000 

416 

35000 

419 

420 

29000 

421 

13000 

422 

8000 

423 

45000 

424 

38000 

425 

426 

13000 

427 

26300 

428 

35000 

429 

25000 

430 

47000 

431 

501 

20000 

502 

29000 

503 

55000 

504 

6000 

601 

9000 

602 

603 

13000 

604 

30000 

605 

10000 

6C6 

20000 

607 

13000 

608 

609 

23000 

610 

19000 

701 

25000 

702 

28000 

703 

13000 

704 

705 

18000 

706 

63000 

707 

13000 

708 

7000 

709 

8000 

801 

802 

44000 

803 

10000 

604 

10000 

901 

32000 

902 

10000 

903 

904 

31000 

905 

10000 

906 

17000 

907 

27000 

1001 

3000 

1002 

1003 

30000 

1004 

35000 

1005 

23000 

1006 

9000 

1007 

17000 

1006 

1009 

22000 

1010 

10000 

1011 

6000 

1012 

9000 

54 

FUNCTION 

FN46,l 

L106 

MPR  CN  AC  RPR 

2M0S, 

IHCS 

101 

1010 

102 

1010 

103 

1010 

104 

1010 

105 

1010 

106 

107 

1010 

108 

1010 

109 

1010 

110 

2020 

111 

2020 

201 

202 

2020 

203 

2020 

301 

2020 

302 

2020 

303 

2020 

304 

305 

2020 

306 

2020 

307 

2020 

308 

1010 

309 

1010 

310 

311 

1010 

312 

1010 

313 

1010 

314 

1010 

315 

1010 

401 

402 

0 

403 

1010 

404 

0 

405 

0 

406 

2020 

407 

408 

2020 

409 

0 

410 

1010 

411 

1030 

412 

1010 

413 

414 

1010 

415 

2020 

416 

0 

417 

1010 

418 

1010 

419 

420 

2020 

421 

2020 

422 

1010 

423 

2020 

424 

1010 

42f 

426 

2020 

427 

1010 

428 

1010 

429 

lOlO 

430 

1010 

431 

501 

2020 

502 

lOlC 

503 

1010 

504 

1010 

601 

1010 

602 

603 

lOlO 

604 

1010 

605 

1010 

606 

1010 

60  7 

1010 

608 

609 

1010 

610 

1010 

701 

1010 

702 

1010 

703 

1010 

704 

705 

1010 

706 

1010 

707 

1010 

708 

1010 

709 

1010 

801 

802 

1010 

803 

2020 

8C4 

1010 

901 

1010 

902 

1010 

903 

904 

1010 

905 

202C 

906 

1010 

907 

1010 

1001 

1010 

1002 

1003 

1010 

1004 

1010 

1005 

1010 

1006 

1010 

1007 

1010 

1008 

1009 

1010 

1010 

1010 

1011 

1010 

1012 

1010 

55 

FUNCTION 

P1,E3 

SORT 

FN  ON  AC  REPAIR 

I 

V136 

2 

V137 

3 

V138 

INITIAL 

XK78, 

1586 

INITIAL 
INITIAL 
INITIAL 
INITIAL 
INITIAL 
INITIAL 
-INn  I AL 
INITIAL 
INITIAL 
INIT lAL 
INITIAL 
:.\IT  lAL 
INITIAL 
INITI At 
INITIAL 
INITIAL 
INITIAL 
INITIAL 


MXUl.21  ,158 
NXUl,3),a40 
HXlil.lO) ,3 

Mxiu,e),ioo 

MXl  <4,61 .9S99S9 
MXl(4,10i,l 
MXII5, 11, 43680 
MX1(5,9» ,1 
MX1I2,3) ,30 
MX1|3,3),100 
HX3< 1,4) ,68 
MX3I 1, 1) .80 

MX3I2, 11,80  SkCONO  SHILT 

MX3<3,2I,160  t^ORKING  INTEKVAL 

MX3I3,3:,80  NCN-WORKINO 

MX3(3,4»,70 

MX3I2,2) , )200 

MX3I2.3) ,480 


11 


Initializes  simulation  interval  for  4368.0  hours 


9469990003 115U 
63U9990003I200 
65699900031250 
93399900031300 
60099900031350 
3489990003 14C0 
29699900031450 
00031500 
00031550 
45000  00031600 
30000  00031650 
18000  00031700 
28000  00031750 
26000  00031800 
75000  00031850 
36000  00031900 
26000  00031950 
63000  00032000 
42000  C0032050 
7000  00032100 

22000  00032150 
10000000032200 
12000  00032250 
42000  00032300 
17000  00032350 
15000  00032400 
00032450 
00032500 
1010  00032550 

2020  C003260C 

2020  00032650 

1010  00032700 

2020  00032750 

2020  00032800 

2020  00032850 

1010  00032900 

1010  00032950 

1010  00033000 

1010  00033050 

1010  00033100 

1010  00033150 

1010  00033200 

1010  00033250 

1010  00033300 

1010  00033350 

00033400 
00033450 
00033500 
00033550 
00033600 
00033650 
00033700 
00033750 
00033800 
0C033650 
00033900 
00033950 
00034000 
00034050 
00034100 
00034150 
00034,100 
C0034250 
00034300 
00034350 
00034400 
00034450 


(182  days). 
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© — 
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INITIAL 

MHHl-4,51 ,1 

00034500 

INITIAL 

MHldiiOiiB 

00034550 

INITIAL 

MKU2,10),3 

00034600 

INITIAL 

HMU3«10I«3 

00034650 

INITIAL 

MHl(<>.10).3 

00034700 

INITIAL 

MHm.ll),73 

00034750 

INITIAL 

00034800 

INITIAL 

HHU3. 111,20 

00034850 

INITIAL 

MH1K,11),20 

00034900 

INITIAL 

NH1(2,12I ,107 

00034950 

INITIAL 

MH1(1,12I,A 

00035000 

INITIAL 

MH1(3,12),3 

00035050 

INITIAL 

HH1«8, 121,5 

00035100 

INITIAL 

NHlIl, 151,1 

0C035150 

INITIAL 

HHlIl-2, 161,2 

00035200 

INITIAL 

HHl,l,2U,5 

00035250 

INITIAL 

MM1(6,17),1200 

00035300 

INITIAL 

HH1I6, 181,480 

00035350 

INITIAL 

HH6(26,1),J00 

00035400 

INITIAL 

MH6(26,2i , 1200 

00035450 

INITIAL 

MH6(26,3i, 1200 

00035500 

INITIAL 

MH6(2b,4l ,1200 

0003555C 

INITIAL 

HHb(26,5), 1200 

00035600 

INITIAL 

MH6(26,6) , 1200 

00035o50 

INITIAL 

MH6(27,1I,303 

00035700 

INIT lAL 

HH6(27,2) .403 

00035750 

INIT lAL 

MH6(27,31,407 

00035B00 

INITIAL 

HH6<27,4) ,408 

00035850 

INIT lAL 

HK6(27,5),416 

00035900 

INITIAL 

MHb<27,6),423 

00035950 

INITIAL 

X189.3000 

00036000 

INITIAL 

X190,199S99 

00036050 

INITIAL 

X191.3 

00036100 

INITIAL 

X192.5 

00036150 

INITIAL 

X193.480 

00036200 

INITIAL 

X194.3 

000362'^0 

INITIAL 

X197,6 

0003630U 

'•'-^NITIAL 

X1630.K0  COST  SWITCH, 

X1630=l  BYPASS  COST  00036350 

Fullword 

Savevalue  1630 

acts 

as  a switch 

which  permits  or 

prevents 

the  use  of  the 

cost 

logic.  The 

RjMS  costs  are 

determined  when  X1630=0, 

and 

the  logic  is 

bypassed  when 

X1630=l. 
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..«as«)  ivSfcisia^iS 


1 f t f 1 1 126 

X163CiKl,CSIt> 

►'^OST 

•'.OST,X1601 tX1602,x:603.X1604tXl605«Xl606 


MISSION  GENEPATOK  ROUTINE 

SCHEOULEO  MISSION  SUBROUTINE 


00036600 

00036650 

00036500 

00036550 

00036600 

00036650 

00036700 

00036750 

00O36U0O 

00036850 

00036900 

00036950 

00037000 

00037050 

00037100 

00037150 

00037200 


llA 

GENERATE 

..2«1,50.25.E 

00037250 

SPLIT 

1,DLCA«,2S 

00037300 

SPLIT 

1,I-1PCA,,25 

00037350 

SPLIT 

liFTA,,25 

00037600 

SPLIT 

lfOCRA,,25 

00037650 

00037500 

00037550 

SMGE 

ASSIGN 

9»,K1 

00037600 

GMGG 

ADVANCE 

MH1(*9,U» 

00037650 

TEST  E 

P9,I ,SMGT 

00037700 

SPLIT 

l.SACA,,25 

00037750 

SMGT 

ASSIGN 

2.5 

00037B00 

$MGB 

TEST  GE 

MHl(*9.VUtKltSMGE 

00037850 

13,  A single  transaction  is  generated  at  time  1 with  a priority 
of  126.  The  transaction  enables  the  Fortran  subroutine  MCOST 
to  be  loaded  and  initialized  before  the  actual  simulation 
begins . 


14.  This  checlc  determine*^  whether  the  cost  logic  is  to  be  used 
during  execution.  If  the  cost  logic  is  not  used,  then  the 
transaction  branches  to  CST5. 


15.  This  LOAD  blov.  makes  the  MCOST  module  core  resident  for  the 
duration  of  the  simulation. 


16.  This  HELPA  block  calls  for  the  MCOST  routine  which  then  sets 
the  arrays  to  zero  and  reads  the  cost  input  data  cards. 


17.  The  transaction  is  terminated  at  this  block. 
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ASSIGN 

3.MHlI*9,vn 

ASSIGN 

4.MH1I69.P2) 

LOOP 

2. SMGC 

SMGO 

SPLIT 

ltSMGH,,25 

SHGE 

GATE  LR 

2. SMGO 

TEST  E 

P9,MH1(1,U1,SMGF 

ADVANCE 

MH1I2.12) 

ASSIGN 

9.K1 

GATE  LR 

1 

TRANSFER 

f SMGG 

SMGC 

SPLIT 

1, SMGH, ,25 

TRANSFER 

,SMGB 

SMGH 

GATE  LR 

V3,SMGQ 

GATE  LR 

1,SMGQ 

GATE  LR 

2, SMGO 

ASSIGN 

24, K1 

ASSIGN 

6, Cl 

SPLIT 

1, SMGR., 25 

SAVEVALUE 

P4*,P3,H 

SMGN 

ALTER 

16, ALL, 7, P6. 15,1 

ALTER 

16, ALL, 8, *4, 15,1 

SMGK 

UNLINK 

1,PLAB,1.11,P4,SMGJ 

LOOP 

3, SMGK 

SMGO 

TERMINATE 

SMGJ 

ASSIGN 

1*,K1 

TEST  E 

PI ,K6,SMGL 

TEST  E 

Pll ,KO,SMGM 

MARK 

7 

ASSIGN 

11,1 

ASSIGN 

8,MMll3,12i 

SHGM 

ADVANCE 

1 

TEST  G 

MP7,P8,SMGP 

UNLINK 

4.ARM37, 1, , ,ARM39 

SPLIT 

1.ARM40, ,60 

ASSIGN 

3-,l 

ARM39 

SAVEVALUE 

V5*,P3,H 

TRANSFER 

.SMGO 

SMGL 

ASSIGN 

4,FN1 

TRANSFER 

.SMGK 

SMGP 

ASSIGN 

1,K0 

ASSIGN 

4,MHl(*9,»2) 

TRANSFER 

.SMGN 

SMGR 

AUVANCE 

BUFFER 

MH1I8. 12J 

LOGICS 

V6 

LOGICS 

19 

ADVANCt 

BUFFER 

MHl (P4,2ll 

LUGICR 

V6 

LOGICR 

19 

TRANSFER 

,SMGO 

FtVlNC  termination  SUBROUTINE 


FTA 

PRICRITV 

80 

SPL  IT 

1 ,FTH, ,25 

SPLIT 

4,FTR,2,25 

FT8 

ASSIGN 

3,MH1(*2,14I 

TEST  GE 

P3,K1,SMG0 

ASSIGN 

4,MH1(*2,I3» 

ADVANCE 

V9 

FTC 

LOGICS 

1 

SPL  I T 

1 .RTF, ,25 

ADVANCE 

P4 

unlink 

2, SMGO, 1 

UNLINK 

2,FT0,1,,,FT 

TRANSFER 

,F  TG 

FTF 

LOGICR 

1 

F TO 

ADVANCE 

P3 

TRANSFER 

,FTC 

00037900 

00037950 

00038000 

00038050 

00036100 

0003815C 

00038200 

00038250 

00038300 

00038350 

00038400 

00038450 

00038500 

00038550 

00038600 

00038650 

000387C0 

00038750 

00038800 

00038850 

00036900 

00038950 

00039000 

00039050 

00039100 

00039150 

00039200 

00039250 

00039300 

00039350 

00039400 

00039450 

00039500 

00039550 

00039600 

00039650 

00039700 

00039750 

00039800 

00039850 

00039900 

00039950 

00040000 

00040050 

00040100 

00040150 

00040?00 

00040250 

00040300 

00040350 

OU040400 

00040450 

0004 0500 

00040550 

00040600 

00040650 

00040700 

00040751 

00040200 

00040650 

00040900 

OOOhOSSO 

00041000 

OOC't  1050 

00041100 

0C04 1150 

00041200 

0004 lc50 

0004 1 TOC 

0o04 1350 

00041400 

00041450 

0004 1500 


FTF 

link 

2, FIFO 

00051550 

FTO 

TRANSFER 

.FTF 

0005 IGOO 

FTH 

ASSIGN 

00051650 

TEST  NE 

Pl.KO.SMGQ 

00051700 

SPLIT 

l.FTR,,25 

00051750 

FTJ 

TEST  GE 

XHll,Pl,FTK 

00051800 

LOGICS 

2 

00051850 

LOGICS 

1 

00051900 

TERHINATF 

00051950 

FTK 

ADVANCE 

20 

00052000 

TRANSFER 

,FTJ 

00052050 

FTR 

SPLIT 

1. FTL. ,25 

00052100 

SPLIT 

1, FTT, ,25 

00052150 

SPLIT 

5, FTX, 11,25 

00052200 

FTX 

ASSIGN 

9,Hhl(V2,16t 

00052250 

TEST  GE 

P9,K1,SMGQ 

00052300 

ASSIGN 

1.V3 

00052350 

ASSIGN 

6,HH1(V2,17) 

00052500 

LOGICS 

V7 

00052550 

ADVANCE 

MH1(V2,16) 

00052500 

FTZ 

LOGICR 

V7 

00052550 

ADVANCE 

P6 

00052600 

LOGICS 

V7 

00052650 

ADVANCE 

P9 

00052700 

GATE  LR 

*1,SMGQ 

00052/50 

TRANSFER 

,FTZ 

00052800 

FTL 

SPLIT 

5, FTP, 11, 25 

00052850 

FTP 

ASSIGN 

9,MH1IV2,151 

00052900 

TEST  GE 

P9,K1 ,SHGG 

OOC5295C 

ASSIGN 

1.V3 

00053000 

ASSIGN 

8,V5 

00053050 

FTN 

TEST  GE 

XH*8,P9,FTM 

00053100 

LOGICS 

V7 

00053150 

LOGICS 

♦1 

00053200 

TERMINATE 

00053250 

FTH 

ADVANCE 

10 

00053300 

TRANSFER 

,FTN 

00053350 

FTT 

SPLIT 

5, FTS, 11, 25 

00053500 

FTS 

ASSIGN 

9,MHHV2,151 

00053550 

TEST  GE 

P9,Kl,SMGQ 

000535CO 

LOGICS 

V7 

00053550 

ADVANCE 

P9 

00053600 

LOGICR 

V7 

00053650 

TERMINATE 

00053/00 

OOO'fB/SO 

000<>3o00 


AIRCRAFT  ROUTINE 


AIRCRAFT  COMPLEMFNT  SUfiROUTlNF 


000«3U5C 
000<*3>JOO 
000'.  3950 
0005500C 
00055050 
00055100 
0005515C 
00055?00 
00055250 
0005530C 
00055350 


22B 

GENERATE 

,,l,X191,90,60,F  GENERAL 

00055500 

ADVANCE 

ti9  THIS  CARO  IS  2ND  OF 

AC  COMP 

SUBRUUT INE 

00055550 

ASSIGN 

57,V10 

00055500 

AAA 

JOIN 

25 

00055550 

ASSIGN 

51  ,V11 

00055600 

ASSIGN 

50, V231 

00055650 

ASSIGN 

15,N$AAA 

00055/00 

MSAVEVALUE 

6,25,P15,P50,H 

00055/50 

TEST  NF 

P15,K0,N0TBC  IF  NC  TBO  1 

[TEMS  GO 

TC  NUTBO 

0OO55JOO 

SAVEVALUE 

17*,K1,H 

00055850 

ASSIGN 

15.X197  ASSIGN  VO. 

T80  ITEMS  TO  P15 

00055900 

AKh  .6 

MSAVEVAIUE 

6,P15,P15, V156.H 

00055950 

LOOP 

15  ,ARM16 

00055000 

NO  TOO 

JOIN 

16 

00055C50 

JOIN 

23 

00055100 

k 
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AAC 

ASSIGN 

15.1 

TEST  NE 

P35.999.HLH2  INSURES 

TEST  L 

V147tV234«ARH17 

TES.  L 

V148.V235.ARM19 

HLH2 

JOIN 

29 

ASSIGN 

35  .KO 

AAD 

LINK 

l.FIFO 

AAB 

TEST  NE 

P16.K2.AAF 

ASSIGN 

16.K0 

AAF 

PRIORITY 

90 

TRANSFER 

.AAC 

■ THIS 

CARO  MAS  REMUVE  BECAUSE  IT  HAS  NG 

ARM  17 

ASSIGN 

15. KO 

JCIN 

30 

ASSIGN 

17.17 

SAVEVALUE 

V1694^.K1 

SAVEVALUE 

V1704.K1 

SAVEVALUE 

4504-. K1 

SAVEVALUE 

10504. K1 

TRANSFER 

.ARM16 

ARH19 

ASSIGN 

15. KO 

JOIN 

37 

ASSIGN 

17.6 

SAVEVALUE 

V1654.KI 

SAVEVALUE 

V1664.K1 

SAVEVALUE 

4004. K1 

SAVEVALUE 

10004, K1 

TRANSFER 

.ARM23 
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SAC  A 

PRIORITY 

70 

ASSIGN 

4.K0 

split 

4, SACO. 4. 25 

SAC8 

ASSIGN 

3,MH1(*4,15) 

GATE  LR 

va.SHGc 

TEST  GE 

P3.K1.SMG0 

SACG 

EXECUTE 

SMGH 

ASSIGN 

2.P4 

SACE 

ALTER 

16, ALL. 8, *4, 15,1 

GATE  LR 

1.SMG4 

TEST  F 

BV3.1.SMG0 

SACC 

UNLINK 

1,PLAA,1,,,SACD 

LOOP 

TERMINATE 

3. SACC 

SACO 

ASSIGN 

14, K1 

TEST  GE 

PI ,K6.SACF 

ASS IGN 

4,P2 

ASSIGN 

1 .KO 

ADVANCE 

1 

TRANSFER 

,SACE 

SACF 

ASSIGN 

4,FM 

TRANSFER 

,SACC 

SACH 

ASSIGN 

4.P6 

REMOVE 

32 

ASSIGN 

1 .KC 

ASSIGN 

3,1 

TRANSFER 

.SACG 

ARMAO  ASSIGN  8,K1 

TRANSFfH  ,SACH 


AlKCFAfI  MAINLINf  SUBKUUTINf 


♦ PRELAUNCH  LOUP 

PLAA  ASSIGN 
PLAB  ASSIGN 


0004^150 

AGAINST  2M>  PHI  00045200 

00045250 

00045300 

00045350 

00045400 

00045450 

00045500 

00045550 

0C045600 

00045650 

longer  necessary  00045700 

00045750 

00045800 

00045850 

00045900 

00045950 

00046000 

00046050 

00046100 

00046150 

00046200 

00046250 

00046A00 

00046350 

00046400 

0004L450 

00046500 

0004655C 

0004 66C0 

00046650 

00046700 

00046750 

00046600 

00046650 

00046900 

00046950 

0004  7000 

0C04  7050 

00047100 

00047150 

00047200 

00047250 

00047300 

00047350 

00047400 

00047450 

00047500 

00047550 

0004 7600 

0004  7650 

00047700 

00047750 

00047800 

0004  7650 

0004  7900 

00047950 

0C048000 

00048050 

00048100 

00048150 

00048200 

00048250 

00048300 

00048350 

00048400 

0604 8450 

00048500 

0C048S50 

0604 6600 

00048650 

00048700 

00048750 


16.1 

15,2 


TFST  F 

P16tKO«ARMAl 

00048800 

SAVEVALUE 

V151+.KI 

000488SO 

SAVEVALUE 

22S«.K1 

00048900 

SAVEVALUE 

V152«iKl 

000489S0 

SAVEVALUE 

a25»tKl 

0004900C 

REMOVE 

29 

00049050 

JOIN 

2B 

00049100 

PLAT 

ASSIGN 

19, KO 

00049150 

ASSIGN 

17,MHli*8,16l 

00049200 

TEST  NE 

PB.Pll.PLAG 

000492 SO 

ASSIGN 

9.K1 

0o049300 

PLAG 

ASSIGN 

l,MHl(«8,22l 

00049350 

PLAX 

ASSIGN 

19, PIT 

00049400 

TEST  E 

PIT, Kl, PLAC 

00049450 

TRANSFER 

.*t ,PLAH,PLAC 

0C049500 

PLAC 

TRANSFER 

SBR,LIA,S 

00049550 

TEST  L£ 

V13.FN2.PLAK 

00049600 

PLAH 

LOOP 

IT, PLAX 

00049650 

PLAN 

ASSIGN 

IT, 5 

0004 9T00 

ENTER 

1 

C004ST5C 

ADVANCE 

HH1I6,13) 

00049800 

TABULATE 

3 

0G049850 

TEST  LF 

V13,FN2,PLAL 

00099900 

PLAJ 

TEST  NE 

PU.Kl.PLAO 

00049950 

PLAF 
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2 

00050000 

GATE  LS 

VU 

00050050 

PLAG 

REMOVE 

28 

00050100 

MARK 

00050150 

UNLINK 

3,TSTHA,ALL,12,P12 

00050200 

LEAVE 

2 

00050250 

GATE  LR 

VIS, PLAH 

00050300 

TRANSFER 

,FLTA 

00050350 

PLAN 

LEAVE 

L 

00050400 

TRANSFER 

,AAB 

00050450 

PLAK 

ASSIGN 

19. PIT 

00050500 

REMOVE 

28 

00050550 

ASSIGN 

IB.PLAR 

00050600 

TRANSFER 

,CMA 

00050650 

PLAL 

ASSIGN 

19, PIT 

00050TOO 

REMOVE 

28 

00050T50 

ASSIGN 

le.PLAS 

00050800 

TRANSFER 

,CMA 

00050850 

PLAO 

JOIN 

2T 

00050900 

REMOVE 

28 

00050950 

ASSIGN 

IS.K3T 

00051000 

L INK 

A.F  IFO 

00051050 

PLAE 

REMOVE 

21 

00051100 

ASSIGN 

15, K2 

00051150 

SPLIT 

1,SACH,,60 

00051200 

JOIN 

28 

00051250 

TRANSFER 

,PLAF 

00051300 

PLAB 

JOIN 

28 

00051350 

TRANSFER 

,PLAH 

0O05U00 

PLAS 

JOIN 

28 

00051450 

TRANSFER 

,PLAJ 

00051500 

ARM37 

ASSIGN 

16,  KO 

00051550 

SAVEVALUE 

V15U.KI 

00051600 

SAVEVALUE 

V152+,KI 

00051650 

SAVEVALUE 

225*, Kl 

00051700 

SAVEVALUE 

825+, Kl 

00051T5C 
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.PLAN 

00051800 

00051850 

00051900 

00051950 

00052000 

00052050 

00052100 

FLIGHT  LOOP 

00052150 

00052200 

FLTA 

JCIN 

26 

00052250 

FLU 

TABULATE 

2 

0005  2300 

ENTER 

VU 

0O05.’i50 

TEST  LE 

P8,K5,FLTE 

000  5,'<i00 
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TFST  LF 
SAVEVALUE 
FLTO  AOVAMCE 
TEST  G 
SAVEVALUE 
SAVEVALUE 
SAVEVALUE 
SAVEVALUE 
SAVEVALUE 
SAVEVALUE 
SAVEVALUE 
SAVEVALUF 
ASSIGN 
FLTH  LEAVE 
ASSIGN 
TEST  LE 

FLTG  SAVEVALUE 
SAVEVALUE 
SAVEVALUE 
ASSIGN 
LEAVE 
PRIOR  I TV 
PRIORITY 
REMOVE 
REMOVE 

* 

TEST  G 
ASSIGN 

transfer 

ARM42  SAVEVALUE 
SAVEVALUE 
SAVEVALUE 
SAVEVALUE 
SAVEVALUE 
SAVEVALUE 
SAVEVALUE 
SAVEVALUF 
ASSIGN 
TRANSFER 
File  TEST  LE 
ASSIGN 
transfer 

FLTJ  ASSIGN 

TRANSFER 
FLTF  UNLINK 
FLTE  ADVANCE 
TEST  G 
TEST  L 
TESI  L 
TRANSFER 
HLH21  ASSIGN 
HLH22  SAVEVALUE 
SAVEVALUF 
SAVEVALUE 
SAVEVALUE 
SAVEVALUF 
SAVEVALUF 
SAVEVALUE 
SAVEVALUE 
ASSIGN 
TRANSFER 
HLH3  SAVEVALUE 
ASSIGN 
TFST  L 
TEST  L 
TRANSFER 
HLH5  ASSIGN 

TRANSFER 
FLTB  SPLIT 

AOVANCF 

ASSIGN 

MARK 

ASSIGN 

TRANSFER 


V13.FN3.FLTC 

V16*tKl,H 

FN4 

P8tK0,ARM42 

V1S3A.K1 

2S0*^,K1 

VlSAA.Kl 

SSOAfKl 

VISSa.FNA 

27Sa,FN4 

VlSGA'tFNA 

d7S«,FN4 

AOAfFNA 

VIA 

IGtKO 

P8tK5«FLTK 
V17»fMltH 
114-, Ml, H 
74, Ml 
11,  P8 
1 

20, BUFFER 

90 

26 

34 

P19,S,AAU 

1B,AAB 

,CMA 

V2054,1 

7/54,1 

V2074.FN4 

14504, FN4 

V2044.1 

13754.1 
V2064,FN4 
15504, FN4 
404, FN4 
,FLTH 

V13,FN5,FLTJ 

19.6 
,FLTn 

19.7 

♦ 999, FLTF, FLTE 
4, FLTB, 1,8, P8 
V18 

P8,K0,HLH3 

Vl47,V234,HLH2l 

V148,V235,HLH21 

,HLH22 

35,999 

V2084.1 

V2094,1 

V2104,V18 

V2U4.V18 

14754.1 

15754.1 
15004, V18 
16004, V18 
404  ,V18 
,FLTH 
7994, Kl 
404, Vlu 

V147,V234,HLH5 

V148,V235,MLH5 

,FLTH 

35,999 

,FLTh 

1,SACH,,60 

MHII7,13I 

404,Mh1(7,13J 

84,  K6 
,FLTA 


genfral  routine  to 

INSURE  AGAINST  DOING 
AN  EXTRA  PMP  OR  PHI 
AFTER  AN  ABORTED 
TEST  HOP. 


000524t>0  ! 

00052500 

00052550  I 

00052600 

C0052650 

00052700 

00052750 

00052800 

00052B50  i 

00052900 

00052950  ; 

00053000 

00053050 

00053100 

00053150  ' 

0C053200  ] 

00053250  1 

00053300  I 

00053350  I 

00053400  1 

00053450  \ 

00053500  f 

00053550  3 

00053600  : 

00053650  ? 

00053700  I 

00053750  f 

00053800 

00053850 

0005390C 

0GU53950 

00054000 

00054050 

00054100 

00054150 

00054200 

00054250 

00054300 

0C054350  \ 

00054400  ; 

00054450  > 

O0054500 
00054550 

00054600  ] 

00054650 

000547CC 

00054750 

00054B00 

00054850 

G0054900 

00054950 

00055000 

00055050 

00055100 

00055150 

000>'5?0') 

00055150 
00055300 
00055350 
00055400 
00055450 
00055500 
00055550 
00055600 
00055650 
00055700 
000'.57‘d 
0005S jOO 
00055450 
00054400 
00055950 
00056000 
00056050 
00056100 


81 


( 


TSTHP 

ASSIGN 

a,Ko 

GATE  LR 

1,AA8 

00056150 

JOIN 

34 

00056200 

mark 

6 

00056250 

enter 

I 

00056300 

gate  LS 

19 

00056350 

LINK 

3. FIFO 

00056400 

ISTHfc 

SPLIT 

1 f T ST  FR , ,60 

00056450 

TEST  F 

BV2,0,TSTHC 

00056500 

ISTHC 

advance 

V19 

00056550 

UNLINK 

terminate 

3, TSTHA, ALL 

00056600 

0005665C 

TSTHA 

mark 

00056700 

UNLK 

transfer 

*FLTL 

00056750 

transfer 

Pf21 

00056800 

FLTK 

ASSIGN 

8-,K6 

00056850 

transfer 

.FLTG 

00056900 

00056950 

00057000 


A 

POST  FLIGHT 

LOOP 

00057050 

A 

PFAG 

TEST  E 

P19,K0,PFAF 

00057100 

00057150 

PFAE 

TEST  £ 

BV2,K1,PFAA 

00057200 

ASSIGN 

17,K12 

00057250 

JOIN 

28 

00057300 

ASSIGN 

16, K2 

00057350 

transfer 

SSR,L1A,5 

00057400 

REMOVE 

28 

00057450 

PFAC 

TEST  LE 

V13,FN2,PFA0 

00057500 

TRANSFER 

,AAB 

00057550 

PFAF 

ASSIGN 

18, PFAE 

00057600 

transfer 

,CMA 

00057650 

PFAA 

ASSIGN 

18,AA8 

00057700 

PFAB 

assign 

ITtll 

00057750 

JOIN 

35 

00057800 

transfer 

SBR,LU,S 

C005785C 

REMOVE 

35 

00057900 

PFAO 

transfer 

Pf  18 

00057950 

ASSIGN 

19,12 

00058000 

ASSIGN 

16,  KO 

00056050 

ASSIGN 

18, PFAC 

00058100 

h 

transfer 

,CMA 

00058150 

00058^00 

00058250 


PREVENTIVF  MAINTENANCE  ROUTINE 


OARV  INSPECTION  SUBROUTINE 


OLCA 

priority 

assign 

TEST  G£ 

advance 

ARM36 

assign 

OLCB 

GATE  LR 

OLCO 

UNLINK 

UNLINK 

ASSIGN 

OLCE 

advance 

LOOP 

advance 

transfer 

transfer 

DLCC 

assign 
test  e 
transfer 

OLA 

ASSIGN 
REMOVE 
L EAVt 

AO 

2fMXlIl,3» 

P2,K1,SNG0 

MX1|1,2) 

general  - NC  .(ORK  OAVS/hK 

i t ULCC 
1 tClB.AU 
AfOlA.AU 
U,KO 
P2 

3iOLCB 

X193  WAITS  FOR  WEEK-END 

.ARH36 

tClCb 

IA*,KI 

V21  ,KO,OLCE 

.OLCO 

16. KO 

27 


0005830C 

00058350 

0005PA00 

00058A50 

00058500 

00058550 

0005660C 

00058650 

00058700 

00058750 

00058800 

00058850 

00058900 

00058950 

00059000 

00059050 

00059100 

00059150 

00059200 

00059250 

00059300 

00059350 

00059A00 

00059A50 

00059500 

00059550 

00059800 


assign  19, KO 

OLB  ASSIGN  17,16 


00059650 

0005970C 


0O059/50 
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REMOVE 

29 

00059a0U 

ASSION 

16fK0 

00059850 

ASSIGN 

15.2 

00059900 

TRANSFER 

.OLh 

00059950 

OLH 

ASSIGN 

17.K16 

00060000 

OLE 

TEST  LE 

P24.MX1IA. lOl.RLARA 

0006U050 

JOIN 

33 

00U60100 

TRANSFER 

SBR.LIA.S 

0006C150 

OLD 

ADVANCE 

KO 

00060200 

REMOVE 

33 

00060250 

TEST  GE 

V14efV23S.0LC  LOGIC  CHANGE  TO  FLAG  A/C 

0006C300 

ASSIGN 

35.999  THAT  HAVE  JUST  HAD  A PHI 

00060350 

OLC 

TEST  G 

V13.FN2.AAB 

00060A00 

ASSIGN 

19, PIT 

0006 C450 

ASSIGN 

18.AAB 

00060500 

TRANSFER 

,CMA 

00060550 

* 

00060600 

• 

0006 C650 

* LINE  MAINTENANCE  SU8KOUTINE 

C0060700 

* 

00060750 

LIA 

QUEUE 

PIT 

00060600 

ASSIGN 

22.V23 

00060850 

ASSIGN 

2.V2A 

00060900 

TEST  NE 

P22.KO.LMM 

00060950 

MARK 

0C061000 

ENTER 

V26 

00061050 

QUEUE 

V2T 

00061100 

LNI 

GATE  LR 

20.LMB 

00061150 

LMF 

ASSIGN 

3.V28 

00061200 

ASSIGN 

A.KO 

00061250 

LMO 

TEST  GE 

R*3.P22,LMG 

00061300 

DEPART 

V2T 

00061350 

DEPART 

PIT 

000619C0 

ENTER 

♦3.P22 

00061450 

ASSIGN 

20.V25 

00061500 

ADVANCE 

P20 

00061550 

TEST  NE 

P1T.K2.ARM30 

0006 1600 

TEST  NE 

P1T.K16.ARM31 

00061650 

AAM32 

LEAVE 

•3,P2T 

00061700 

LEAVE 

V26 

00061750 

TABULATE 

3 

00061800 

MSAVEVALUE 

2f,P2,PIT,V29 

00061850 

'MSAvrvALUE 

/♦,P2, PIT, Kl,H 

00061900 

SAVEVALUE 

V3C»,V29 

00061950 

SAVEVALUE 

20t  .V- 

00'"o2000 

unlink 

V31.U  <,ALL 

00062050 

TRANSFER 

P.5,1 

00062100 

ARM  30 

SAVEVALUE 

V157»,KI 

00062150 

SAVEVALUE 

300«.K1 

00062200 

SAVEVALUE 

V158»,K1 

00062250 

SAVEVALUE 

900»,K1 

00062300 

SAVEVALUE 

V159*,V191 

00062350 

SAVEVALUE 

325t,V191 

00062400 

SAVEVALUE 

V160»,V191 

00062450 

SAVEVALUE 

925F.V191 

00062500 

TRANSFER 

.ARM32 

0006255F 

ARM  31 

SAVEVALUE 

V16U.KI 

000626' 

SAVEVALUE 

350>,K1 

0006  2. 

SAVEVALUE 

V162+.KI 

000627 

SAVEVALUE 

950*,Kl 

000627b 

SAVEVALUE 

Vl&3*.V19l 

00062R00 

SAVEVALUE 

375F.V191 

00062o50 

SAVEVALUE 

V16A+.V191 

00062900 

SAVEVALUE 

ST5*,V191 

00062950 

SAVEVALUE 

V195*,MI  DAILY  ELAPSED  TIME 

00063000 

SAVEVAlut 

675*,«1  elapsed  time  FOR  A DAILY 

00063050 

IR  AN  SEEP 

, AHM3? 

00063100 

rhi 

s block 

tabulates  the  number  of  pre- flight,  post 

- flight 

and 

daily  inspections  in  Matrix  Halfword  Savcvalue 

/ • 
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LN8 

ASSIGN 

3.V27 

00063150 

ASSIGN 

4tl 

00063200 

transfer 

.LMO 

00063250 

LMC 

ASSIGN 

21tLME 

00063300 

ASSIGN 

23.FN7 

00063350 

LINK 

V31,P2i 

0006  3400 

LME 

TEST  E 

P16.K0.LMI 

00063450 

TEST  NE 

PSiKOfLMI 

00063500 

TEST  NE 

P17.K1.LMP 

CC063550 

TEST  G 

Ml.FN8.LMI 

00063600 

LNN 

DEPART 

V27 

00063650 

DEPART 

P17 

00063700 

LNL 

LEAVE 

V26 

00063750 

REMOVE 

28 

00063600 

transfer 

.AAB 

00063850 

LNN 

DEPART 

PIT 

00063V00 

TRANSFER 

P.5.1 

00063950 

LHP 

TEST  G 

mct.fns.lmi 

00064000 

transfer 

.LMN 

00064050 

00064100 


PHP-PMl  SL6P0UT1NE  00064190 

00064200 
00064? 50 


ARM18 

ASSIGN 

I2.X197 

ASSIGN  NO.  TBC 

ITEMS 

TO  P12 

00064300 

TEST  NE 

P12  .KO.PMCY 

IF  NC  TBO  ITEMS 

GO  TO 

PMCY 

0C064350 

ARM22 

TEST  G 

V149.X189.ARM24 

00064400 

ARM21 

LOOP 

12.ARM22 

00064450 

PMCV 

ADVANCE 

U0064500 

ARM23 

PRIORITY 

20. BUFFER 

00064550 

MARK 

00064600 

ASSIGN 

35,999 

00064650 

ASSIGN 

26.K0 

00064700 

ASSIGN 

15.2 

00064750 

ASSIGN 

21.PMCH 

00064800 

ASSIGN 

23.FN7 

00064850 

ASSIGN 

2.K0 

00064900 

SPLIT 

1,PMCF,,60 

00064950 

QUEUE 

PIT 

00065000 

ENTER 

V26 

00065050 

DEPART 

PIT 

00065100 

SPLIT 

1.PMCG..60 

00065150 

SPLIT 

1,PMCR.,60 

00065200 

PMCM 

ASSEMBLE 

13 

00065250 

PRIORITY 

90 

00065300 

LEAVE 

V26 

00065350 

TABULATE 

3 

00065400 

REMOVE 

30 

00065450 

REMOVE 

37 

00065500 

TEST  NE 

PIT.KIT.PMCZ 

00065550 

TEST  E 

PIT,K8, ARM33 

0006560U 

ARM33 

SPLIT 

l.REEG 

00065650 

TEST  LE 

Vl3.FN2.hLHl 

LOGIC  TO  DETECT 

00065700 

ASSIGN 

27, KO 

FAILURES  AT  PMI 

AND 

00065750 

TEST  Z 

P24,K0,RLARA 

DO  ARAY  WITH  TSHHPS 

00065800 

TRANSFER 

,AAB 

AFTER  PMI 

00065850 

PMCAA 

TEST  LE 

V13,FN2,PMCS 

00065900 

TEST  E 

P24,K0,PMCT 

00065950 

TRANSFER 

,ARRG 

00066000 

HLHl 

ASSIGN 

19, PIT 

OU066050 

ASSIGN 

25, K1 

00066100 

ASSIGN 

27, KO 

00066150 

TRANSFER 

,CMA 

00066200 

PMCZ 

SPLIT 

1 ,REAA,,60 

00066250 

TRANSFER 

.PMCAA 

00066300 

PMCS 

FSSIGN 

19, PIT 

00066350 

ASSIGN 

25, K1 

000664C0 

ASSIGN 

27, K1 

00066450 

transfer 

,CMA 

000665c: 

PMCT 

ASSIGN 

27, K1 

000665'ji/ 

transfer 

,RLAkA 

1 

PMCF 

t INK 

27, FIFO 

OOu c G6  *'  0 

PMC6 

ADVANCE 

MXl(l,V32) 

00066  7 JO 

UNLINK 

27,SMCQ,1.14 

,P14 

00066766 

TRANSFER 

,PMCM 

00066P  J 
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SPLIT 

ASSIGN 

TEST  GE 

ASSIGN 

TEST  E 

SAVEVALUE 

SAVEVAIUE 

SAVEVALUE 

SAVEVALUF 

GATE  LR 

BUFFER 

QUEUE 

GATE  LR 

ASSIGN 

ASSIGN 

ASSIGN 

TEST  GE 

TEST  LE 

DEPART 

ENTER 

ADVANCE 

LEAVE 

UNLINK 

MSAVEVALUE 

TEST  E 

MSAVEVALUE 

SAVEVALUE 

SAVEVALUF 

TEST  E 

TRANSFER 

TEST  E 


lOtPMCU.2,60 

3,MXl(V33.*2t 

P3tKlfPMCM 

4tMXl(V3^,*2) 

Pl7«K8tARM34 

VL67«tV36 

V168>,V36 

425*tV36 

102S«|V36 

29 

V27 

20.PMLJ 

7,V28 

20tV3S 

8.1 

RP7.P3.PMCL 
P4.P20.PMCN 
V2  7 
*7,P3 
P^ 

*7,P3 

P7.UNI  K.ALL 

2«tP2,P17,V36 

P26.K0.BVP2 

7+.P2.P17.KI.H 

V37»,V36 

J2+.V36 

P26.K0.PMCP 

.PPCM 

P17.K17.PMCV 


SAVEVALUE 

V1714.V36 

SAVEVALUE 

V1724.V36 

SAVEVALUE 

4754.V36 

SAVEVALUE 

10754. V36 

TRANSFEk 

,PMCV 

PMCJ 

ASSIGN 

7.V27 

ASSIGN 

8.K0 

ASSIGN 

20.V38 

TRANSFER 

.PMCK 

PMCN 

ASSIGN 

22.V39 

ASSIGN 

4.P20 

ASSIGN 

26.KI 

TEST  E 

P4.K0.PMC0 

DEPART 

V27 

PMCP 

ASSIGN 

4.P22 

PRIORITY 

1. BUFFER 

PRIORITY 

20 

ASSIGN 

26, KO 

TRANSFER 

,PMCV 

PMCL 

LINK 

P7.P23 

ARM24 

SPLIT 

1. ARM20 

TRANSFEK 

.ARM21 

00066USO 
00066900 
000669SO 
0006 7000 
0006 70SO 
U0U67100 
00067150 
00067200 
000E7Z50 
00067300 
00067350 
00067500 
00067450 
00067500 
00067550 
00067600 
00067650 
00067700 
00067750 
00067o00 
0006 7850 
00067900 
00067950 
OC068000 
00068050 
00068100 
00068150 
00068200 
00068250 
00068300 
00068350 
00068400 
00068450 
00068500 
00068550 
00068600 
0006B650 
00068700 
00068750 
00068600 
00068850 
00068900 
00066950 
00069000 
00069050 
00069100 
00069150 
00069200 
00069250 
00069300 
00069350 
00069400 
0C06945C 
00069500 
00069550 


transaction  is  checked  to  determine  whether  it  has  been 
previously  tallied.  P26=l,  the  inspection  has  been  con- 
tinu'^a  t'r^.m  the  previous  shift  and  the  transaction  branches 
mp:. 

This  block  tabulates  the  number  of  PMI  and  PMP  inspections 
in  Matrix  Halfword  Savevalue  7. 


This  block  was  modified  to  include  the  label  BYP2. 


85 


UHt  CHAIH6E 

OVERHAUL  tRETlREHENT  SUBROUTINE 

00069600 

00069650 

00069700 

ARN20 

ASSIGN 

22.HH6I27.P12I 

00069750 

NSAVeVALUE 

6t*14,*12tVlSO»H 

00069800 

ASSIGN 

12fl 

00069850 

ASSIGN 

6,9 

00069900 

ASSIGN 

25,K13S9 

0U069950 

ASSIGN 

17,19 

00070000 

HSAVeVALUE 

S«’,V66,*6,K1,H 

00070050 

SAVFVALUF 

V175«,K1 

00070100 

SAVEVALUE 

S25»,K1 

00070150 

SAVEVALUE 

V176«,K1 

00070200 

SAVEVALUE 

112S«,K1 

00070250 

t 

t 

1 

TRANSFER 

,HPAA 

00070300 

00070350 

00070600 

00070650 

00070500 

> FAILURE  OETEHMINATION  ROUTINE 
* 

00070550 

00070600 

CNA 

ASSIGN 

2,FN9 

00070650 

> 

TABULATE 

4 

00070700 

00070750 

FOA 

ASSIGN 

24>,KI 

00070800 

ASSIGN 

3,FN1S 

00070850 

TABULATE 

5 

00070900 

TABULATE 

6 

00070950 

SAVEVALUE 

V173«,K1 

00071000 

SAVEVALUE 

500«,K1 

00071050 

SAVEVALUE 

V174«,K1 

00071100 

SAVEVALUE 

1100«^,K1 

0007115C 

SAVEVALUE 

V4U,K1,H 

00071200 

ASSIGN 

4,K2i 

00071250 

SAVEVALUE 

1,RN2 

00071300 

ASSIGN 

5,FN22 

00071350 

HSAVEVALUE 

2,2,1 ,0,H 

00071600 

FOB 

ASSIGN 

22,V42 

00071650 

TEST  NE 

PS,Kl,ARHS4 

00071500 

HSAVEVALUE 

2«’,2,1,FN*4,M 

00071550 

ARM55 

TEST  LE 

Xl,HH2(2,li ,FOO 

00071600 

TABULATE 

7 

00071650 

SPLIT 

1 , FOK, ,60 

0007170C 

TEST  E 

P19,K7,F0L 

00071750 

ASSIGN 

19,6 

00071800 

FOC 

ASSIGN 

25, Kl 

00071850 

FOF 

LOOP 

2,FCA 

00071900 

TEST  E 

P25,K1,F0N 

00071950 

TEST  E 

BV1B,1,RLARA 

00072000 

UNLINK 

4,ARH37,1,,,ARH38 

00072050 

SPLIT 

1,ARHA0,,60 

0007210C 

ARN38 

TEST  E 

P19,KS,RLARA 

00072150 

SAVEVALUE 

33t,Kl 

00072200 

TRANSFER 

,RLARA 

00072250 

FOD 

LOOP 

5, FOB 

00072300 

FOL 

TRANSFER 

,FCF 

00072150 

TEST  G 

RN3,FN30,F0C 

00072600 

FDR 

GATE  LS 

l,FOF 

00072650 

TRANSFER 

,FOC 

00072500 

FDN 

TEST  NE 

P27,K1,F0M 

00072550 

ASSIGN 

25, KO 

00072600 

ASSIGN 

19, KO 

00072650 

TRANSFER 

P,18 

00072700 

FOK 

LINK 

32, FIFO 

00072750 

ARM5A 

HSAVEVALUE 

2, 2,1  , 999, H 

00072800 

TRANSFER 

,ARH55 

00072850 

FOM 

ASSIGN 

27, KO 

00072900 

TEST  f 

H35,999,ARH5«, 

00072950 

ASSIGN 

35,0 

00073000 

TRANSFER 

,TSTHP 

00073050 

FOP 

TEST  L 

RN3,V135,FOF 

00073100 

TRANSFER 

,FOC 

00073150 
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ARNS6  TEST  f.  Vl47tV23AtARM17  GENERAL 

TEST  L V148,V23S.ARN19  GENERAL 

TRANSFER  ,TSTHP 


REPAIR  LOCATION  AND  RESPOT  SUBROUTINE 


RLARA 

JOIN 

32 

TEST  F 

P19.K5.RLARB 

LEAVE 

1 

RLAR8 

TEST  E 

P16«X1, RLARC 

SPLIT 

l.SACHit60 

RLARC 

TEST  E 

BVltKl,RLARO 

ASSIGN 

18»RLARK 

TRANSFER 

,PFAB 

RLARO 

MARK 

RLARK 

TEST  E 

BVJfKl, RLARE 

TEST  E 

BV7«K0,RLAPt 

ASSIGN 

18«V44 

TEST  L 

P18«MXl(4.2)iRLARL 

ASSIGN 

18«MX1(4«2I 

RLARL 

ADVANCE 

P18 

SAVEVALUE 

344, Ml 

RLARE 

PRIORITY 

80«BUFFER 

PRIOR  I TV 

90 

UNLINK 

32tUSMA,ALL.14.P14.AAB 

ASSIGN 

20«K123 

ASSIGN 

24f«Kl 

REMOVE 

32 

SPLIT 

liRLARH<«60 

TRANSFER 

,AKRA 

RLARH 

PRIORITY 

no. BUFFER 

SPLIT 

1. RLARG. .60 

RLARF 

JOIN 

32 

ASSEMBLE 

P24 

SAVEVALUE 

V187+.MI 

SAVEVALUE 

625*.M1 

SAVEVALUE 

V1864.M1 

SAVEVALUE 

1225*,Ml 

SAVEVALUE 

35».M1 

SAVEVALUE 

V195+.MI 

SAVEVALUE 

675*. Ml 

SAVEVALUE 

V194*.M1 

SAVEVALUE 

1275*,M1 

SCAN 

40.I4,P14,,,RLARM 

REMOVE 

32 

JOIN 

31 

RLARN 

MATCH 

RLARP 

TERMINATE 

RLARG 

JOIN 

40 

ASSEMBLE 

P24 

SAVEVALUE 

36*  .Ml 

REMOVE 

40 

RLARP 

MATCH 

RLARN 

JOIN 

32 

RLARO 

MATCH 

ARRJ 

ALARM 

• 

« 

TERMINATE 

0 

REPAIR 

PART  ASSESSMENT  SUBROUTINE 

0 

USMA 

PRIORITY 

MARK 

60, BUFFER 

ASSIGN 

18.K0 

ASSIGN 

25.V45 

RPAB 

TRANSFER 

.•25,hPA0,RPAA 

00073200 

000732 SO 

00073300 

000733SO 

00073400 

00073450 

0007350C 

00073550 

00073600 

00073650 

00073700 

00073750 

00073800 

00073650 

00073900 

00073950 

00074000 

00074050 

00074100 

00074150 

00074200 

00074250 

0007430C 

00074350 

00074400 

00074450 

00074500 

00074550 

00074600 

00074650 

00074700 

00074750 

00074800 

00074U50 

00074900 

00074950 

0007500C 

00075050 

00075100 

00075150 

00075200 

0C075250 

00075300 

00075350 

00075400 

00075450 

00075500 

0007555C 

00075600 

00075650 

0007570C 

00075750 

00075800 

00075850 

00075900 

00075950 

00076000 

00076050 

0007610C 

00076150 

00076200 

00076250 

00076300 

00076350 

0007640C 

00076450 

00076500 

0007655C 

OC076600 

00076650 
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RPAA 

ADVANCE 

MXllAtB) 

00076700 

ASSIGN 

2S.K135G 

00076750 

MSAVEVALUE 

V46«2«l « H 

00076800 

SAVEVALUE 

ITS^tKl 

00076B50 

TEST  LE 

RNl«FN38tNURCA 

00076900 

RPAC 

TRANSfER 

• MPAA 

0007695C 

RPAO 

MSAVEVALUE 

SA.VAA.l.ltH 

00077000 

SAVEVALUE 

ITG^tKl 

00077050 

* 

00077100 

» 

00077150 

» MANPOH6R  ASSESSMENT  SUBROUTINE 

00077200 

00077250 

MPAA 

ASSIGN 

ltK3 

00077300 

NPAB 

ASSIGN 

V47tFN39 

00077350 

TEST  E 

P25«1399«ARP1 

00077400 

ASSIGN 

V51tFN41 

00077450 

TRANSFER 

,ARM2 

00077500 

ARNl 

ASSIGN 

V51.FN55 

0007755C 

ARN2 

LOOP 

I, NPAB 

00077600 

» 

00077650 

> 

00077700 

» MTTR  SUBROUTINE 

0007775C 

* 

00077800 

ARM  3 

TEST  E 

P25tKliS9tARM4 

00077850 

NTRA 

ASSIGN 

4iV55 

00077900 

TRANSFER 

.ARMS 

00077950 

ARN4 

ASSIGN 

4.V138 

OC078000 

ARMS 

TABULATE 

8 

00078050 

• THESE  CAROS  HAD  PUT  A MIN  REPAIR  TIME  IN  P4 

00078100 

00078150 

« 

00078200 

* GSE  SUBROUTINE 

00078250 

00078300 

GSEA 

TRANSFER 

.UNSA 

00078350 

GSEB 

ASSIGN 

l.VST 

00078400 

ADVANCE 

PI 

00078450 

SAVEVALUF 

37*. PI 

00078500 

« 

00078550 

00078600 

00078650 

• UNSCHEDULED  MAINTENANCE  ROUTINE 

00078700 

* 

00078750 

• 

00078800 

UNSA 

TEST  NE 

P17.K19.ARM2S 

00078850 

ASSIGN 

17.K23 

00078900 

ARM2S 

TEST  E 

P27.KO.UNSB 

00078950 

UNSJ 

ASSIGN 

3.P29 

00079000 

ASSIGN 

2.P26 

00079050 

ASSIGN 

26.  KO 

00079100 

UNSK 

GATE  LR 

29 

00079150 

BUFFER 

00079200 

QUEUE 

V2  7 

00079250 

QUEUE 

2S 

00079300 

UNSE 

GATE  LR 

20.UNSC 

00079350 

ASSIGN 

7.V2B 

C0079400 

ASSIGN 

20.V3S 

00079450 

ASSIGN 

6.1 

00079500 

UNSO 

TEST  GE 

RA7.P3.UNSP 

00079550 

TEST  LE 

P4.P2C.UNSF 

00079600 

UNSG 

DEPART 

V27 

00079650 

DEPART 

25 

00079700 

ENTER 

♦ 7.P3 

00079/50 

advance 

P4 

00079800 

TEST  NE 

BV17.KI.ARM14 

00079850 

ARMIS 

LEAVE 

♦ 7.P3 

00079900 

UNLINK 

P7.UNLK.ALL 

00079950 

MSAVEVALUE 

2«.P2.P17.V36 

00080000 

* 

00080050 
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I 


COST 

*/C 

:sTO 


* 

« 


,csri 


‘ LOGIC  FOR 

AVUN  REMOVE-REPLACE  , ON  A/C  REPAIR  AND  AVUM  OFF 

ocoeoloo 

REPAIR 

OOOBOISO 

TEST  NE 

X1630«K1,CSTX 

CHK  COST  BYPASS 

00080200 

-TEST  NE 

V36.K0tCSTX 

CHK  FOR  NO  MMH 

00080250 

00080300 

00080350 

00080400 

SAVEVALUE 

1601 tVAA 

SYSTEM  NO. 

00080450 

-SAVEVALUE 

1602tFN66 

COMPONENT  NO. 

00080500 

•^SAVEVALUE 

1603, P2 

MOS  NO. 

00080550 

-TEST  E 

P17,18,CST6 

00080600 

-SAVEVALUE 

1604, K3 

AVUM  OFF  A/C  REPAIR  ~ CODE  = 3 

CC08C650 

"TRANSFER 

,CST8 

OOObOTOO 

22.  This  check  determines  whether  the  cost  logic  is  being 

employed  (X1630=l).  When  the  cost  logic  is  not  being  used, 
the  transaction  branches  to  CSTX. 


23.  This  test  determines  whether  there  were  maintenance  man- 
power hours  associated  with  the  action;  if  not,  the  trans- 
action branches  to  CSTX  and  no  accounting  is  done. 


j 

'pj 


1 

-'i 

I 

I 


24.  The  subsystem  component  and  MOS  numbers  for  the  maintenance  | 

action  are  assigned  to  Savevalues  1601  to  1603.  I 

I 

25.  This  logic  determines  whether  the  maintenance  action  is  j 

off  aircraft  repair  (P17=18).  Off  aircraft  repair  transac- 

tions  havp  their  action  code  set  to  3 (X1604=3),  and  the  | 

transaction  then  branches  to  CST8. 


I 

r 
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TEST  F 

SAVEVALUF 

TRANSFER 

SAVEVALUf 

TEST  F 

SAVEVALUE 

TRANSFER 

SAVEVALUE 

SAVEVALUE 

HELPA 

TEST  NE 

SAVEVALUE 

SAVEVALUE 

SAVEVALUE 

SAVEVALUE 

SAVEVALUE 

SAVEVALUE 

TEST  NC 

NSAVEVALUE 


P25tKl35'itCST7 

160AtK2 

.CST8 

160A«K1 

BVIO.KI.LSTS 

160StK999 

fCSTA 

160SfP17 

1606. V36 


REMOVE-HEPLACE  ACTION  — CODE  = 

ON  A/C  REPAIR  — CODE  = 1 
CHK  FOR  PREV.  COUNTED  EVFNT 
SUPPRESS  FVENT  COUNTER  IN  MCOST 


P17  > 19,  23  OR  18 
NNH 

MCOST. X1601. X1602, X1603,X1609,X 1605. X1606 

P17,K19,ARM10 

V58+.V36 

494, V36 

V189f,V36 

575*, V36 

V190»,V36 

1175«,V36 

P12.K1.ARM57 

5A.V46.V59.V36 


00080750 
00060800 
00080850 
00080900 
00080950 
00081000 
00081050 
00081100 
00081150 
000P1200 
00081250 
00081300 
00081350 
00081400 
0008 1450 
00081500 
00081550 
00081600 
00081650 


26.  This  logic  determines  whether  the  maintenance  action  is  a 
remove  and  replace  (P25=1359).  Remove  and  replace  events 
have  their  action  code  set  to  2 (X1604=2),  and  the  trans- 
action branches  to  CST8. 

27.  Maintenance  actions  which  are  on  aircraft  repair  have 
their  action  code  set  to  1 (X1604=l). 

28.  This  test  determines  whether  the  transaction  was  previously 
tallied.  Transactions  which  represent  secondary  work 
centers  (P26=l)  or  multiple-shift  action  (P5=9999)  are 
tallied  when  the  initial  transaction  was  passed  to  MCOST. 
The  Savevalue  1605  is  set  to  999  when  BVlO-1,  and  in  the 
MCOST  subroutine  only  the  man-hours  are  tabulated. 

29.  When  the  Boo3-'an  Variable  10  is  equal  to  zero,  Savevaj.'e 

1605  is  set  to  P17.  P17=19  represents  a time  changi  coia- 

ponent,  P17=18  represents  off  aircraft  repair,  and  P3'^=23 
represents  remove/replace  or  on  aircraft  repair. 


30.  The  maintenance  man-hours  for  the  event  are  assigned  t' 
Savevalue  1606. 


31.  This  HELPA  block  passes  to  MCOST  the  Savevalues  1601  to 
lb06.  The  subroutine  tabulates  the  AVUM  maintenance  man- 
hours and  when  applicable  (1605=999)  the  event.  The  events 
which  are  tabulated  by  the  RMS  logic  in  Matrix  Halfword 
Savevalue  5 may  not  be  equal  to  those  in  Table  V,  Subsystem 
Maintenance  Action,  since  MH5  events  are  counted  before  the 
Unscheduled  Maintenance  routine  and  the  simulation  may  ter- 
minate before  the  transaction  is  passed  to  'ICOST  for 
accounting . 

52.  This  block  was  modified  to  include  the  label  CSTX. 
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AIWSS 

TEST  E 

PEAtXOtUNSH 

000B1700 

TEST  NE 

PS,K9999tCANN 

000B1750 

TEST  NE 

P12tltCANN 

00081 BOO 

TEST  E 

P2S.K1359,UNSL 

0008 1850 

SPUT 

ltIMAA,,60 

00081900 

UNSL 

TEST  E 

P18*K0,UNSM 

00081990 

SPLIT 

1,RLARF,,60 

00082000 

SPLIT 

1 < RLARGf  t60 

0008205C 

UNSN 

TRANSFER 

,ARRA 

00082100 

ARNIO 

MSAVEVALUE 

5«,V46,*6,V36 

00082190 

SAVEVALUE 

V222>tV3« 

00082200 

SAVEVALUE 

SS0*tV36 

00082250 

SAVEVALUE 

V223««V36 

00082300 

SAVEVALUE 

1150tfV36 

00082350 

TEST  E 

P26.K0tUNSH 

00082400 

TERMINATE 

00082450 

UNSB 

SPLIT 

1«UNSN,,60 

00082500 

TRANSFER 

tUNSJ 

00082550 

UNSN 

ASSIGN 

5,R9999 

00082600 

ASSIGN 

3.P30 

00082650 

ASSIGN 

2,P27 

00082700 

ASSIGN 

26,  KO 

00082750 

TRANSFER 

,UNSK 

00082800 

ARM14 

ADVANCE 

P19 

00082850 

ASSIGN 

26,0 

00082900 

ASSIGN 

4*,P19 

00082990 

SAVEVALUE 

108«,P19 

0C083000 

-TEST  NE 

X16J0,K1,0TBP 

00083050 

• 

00083100 

« CALI 

NCOST  TO  AOO  OVERTIME  RESIDUALS  TO  TOTAL  AVUM  SUBSYSTEM  COST 

00083150 

« 

00083200 

— 

'SAVEVALUE 

1601, V46 

00083250 

•SAVEVALUE 

1602, FN46 

00083300 

-SAVEVALUE 

1603, P2 

00083390 

*■■■  ■ i»ii 

..SAVEVALUE 

1604,K9 

00083400 

.SAVEVALUE 

1609, KO 

00083450 

33.  This  check  determines  v/hether  the  cost  logic  is  being 
employed  CX1630=1). 

34.  The  subsystem,  component,  and  MOS  numbers  for  overtime 

are  assigned  to  Savevalues  1601,  1602,  and  1603,  respectively. 

35.  This  block  sets  the  overtime  action  code  to  9 (X1604=9) . 

36.  Savevalue  1605  is  not  used  in  the  overtime  logic  of  the 
MCOST  subroutine. 
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‘SAVEVALUE 

-HELPA 

1606,V244 

NC0ST.X1601,X1602*X1603.X1604.X160S»X1606 

00083500 

00083550 

00083600 

* 

• 

00083650 

00083700 

(35) OTBP 

HSAVEVALUE 

2>.P2«20«V244  ACCUMULATE  UT  MMH  BY  MCS 

00083750 
IN  .01  HRS  00083800 

TRANSFER 

,ARM15 

00083850 

UNSC 

ASSIGN 

7,V27 

00083900 

ASSIGN 

20.V3B 

00083950 

ASSIGN 

BfKO 

O0C64000 

TRANSFER 

.UNSO 

00084050 

UNSP 

ASSIGN 

23,FN7 

00084100 

ASSIGN 

21tUNSE 

00084150 

LINK 

P7,P23 

00084200 

UNSF 

ASSIGN 

14.V39 

00084250 

ASSIGN 

4.P20 

00084300 

ASSIGN 

26.K1 

00084350 

TEST  E 

P4,KO«UKSG 

00084400 

DEPART 

V27 

00084450 

DEPART 

25 

00084500 

PRIORITY 

ItBUFFER 

00084550 

TEST  NE 

P12«K1«ARM11 

00084600 

PRIORITY 

60 

00084650 

UNSH 

ASSIGN 

4,P19 

00084700 

ASSIGN 

26tK0 

00084750 

TEST  NE 

V35,0«ARM59 

00084800 

TEST  E 

PAtKOtUNSK 

00084850 

TRANSFER 

,UNSE 

00084900 

AAMU 

PRIORITY 

0 

00084950 

TRANSFER 

,UNSH 

00085000 

ARMS? 

MSAVEVALUE 

5F»V46,46,V36 

00085050 

TRANSFER 

•ARH5B 

00085100 

ARH59 

CATE  LS 

20 

00085150 

QUEUE 

25 

00085200 

QUEUE 

V2  7 

OOOB5250 

DEPART 

V27 

00085300 

DEPART 

25 

00085350 

TRANSFER 

.UNSH 

0008540C 

• 

0U085450 

* AIRCRAFT  RHFASe  AND  REASStHBtY  SUBRUUTIiYE 

00C85500 

00085550 

ARRA 

GATHER 

P24 

00085600 

PRIORITY 

90, BUFFER 

00085650 

TEST  NE 

P20.K123.ARRB 

00085700 

TEST  NE 

PR.KO.ARRB 

00085750 

TEST  E 

FN44.1 .ARRB 

0008580C 

transfer 

. 533, ARRB. ARRH 

00085850 

ARRH 

LOGICS 

21 

00065900 

37.  The  overtime  maintenance  man-hours  (V244)  are  assigned  to 
Savevaluo  1606. 


38.  This  ilHLPA  block  passes  to  'ICOvST  the  values  in  Savevalues 
1601  to  1606.  The  subroutine  determines  with  the  overtime 
factor  from  the  AVUM  Input  Data  Card  (Figure  6)  whether 
there  is  any  additional  cost  to  be  applied  to  the  AVUM 
total  cost  in  Table  V,  Subsystem  Maintenance  Action. 

39.  This  block  was  added  to  tabulate  the  overtime  maintenance 
man-hours  in  Matrix  Savevaluo  C.  Overtime  man-hours  are 
also  included  in  MX2  (F2,23),  unscheduled  maintenance. 
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MRS 

ASSEHRLE 

F24 

00085950 

ARRJ 

HATCH 

RLARQ 

00086000 

ASSIGN 

19tK0 

00086050 

ASSIGN 

24tK0 

00086100 

ASSIGN 

20tK0 

00086150 

ASSIGN 

2$«KO 

0008/'?00 

ASSIGN 

I6fK0 

0008 625C 

ARRC 

TABULATE 

9 

00086300 

SAVEVALUE 

168>tV40 

00086350 

TEST  E 

P27tKliARRO 

00086400 

ASSIGN 

27. KO 

00086450 

TRANSFER 

.ARRE 

00086500 

ARRO 

CATE  LS 

21. ARRF 

00086550 

ARRE 

LOGICR 

21 

0008660C 

TEST  NE 

P3S.999.ARRG 

00086650 

TEST  L 

V1A7.V234.ARN17  GENERAL 

00086700 

TEST  L 

V148.V235.ARH19  GENERAL 

00086750 

> REMOVED 

00086800 

ARRG 

ASSIGN 

17.2 

00086850 

HARK 

44 

00086900 

ASSIGN 

a.KO 

00086950 

TRANSFER 

SSR.L1A.5 

00087000 

TEST  LE 

V13.FN2.AARH 

00087050 

ASSIGN 

35.0 

00087100 

TRANSFER 

.TSTHP 

0008715C 

ARRF 

GATE  LR 

l.AAB 

0008 7200 

TEST  NE 

P17.K16.AAB 

00087250 

TEST  E 

BVtt.Kl.AAB 

00087300 

TEST  GE 

HX1I1.3I.K1.AAB 

00087350 

TRANSFER 

.0L8 

00087400 

AARH 

ASSIGN 

27. K1 

00087450 

ASSIGN 

19.2 

00087500 

ASSIGN 

19.2 

00087550 

( 

1 

1 

TRANSFER 

.CHA 

00087600 
0008 7650 
00087700 
00087750 
00087800 

' NORS/CANNIBALUATION  ROUTINE 
> 

00087850 

00087900 

NQRCA 

TEST  NE 

HX1I4.7I.K1.N0RA 

00087950 

ASSIGN 

1.V61 

0O0G8000 

NORY 

TEST  LE 

RN6.FN4a.NCRCB 

00088050 

1 

« 

TABULATE 

10 

00088100 

00C88I5C 

00088200 

ADVANCE 

PI 

00088250 

TEST  E 

BV19.K1 

00088300 

SAVEVALUE 

VlSbt.Ml 

00088350 

> 

SAVEVALUE 

1425+.M1 

00088400 

0008845C 

TRANSFER 

,NPAA 

00088500 

NORCB 

SPLIT 

1. NORCO 

00088550 

TRANSFER 

.NORCE 

00088600 

NORCO 

ADVANCE 

PI 

00088650 

TRANSFER 

.CANO 

00088700 

NORA 

ASSIGN 

23.74 

00088750 

TEST  E 

V62.CH28 

00088800 

TEST  F 

MSNORL.KO 

00088850 

ASSIGN 

l.KO 

00088900 

GATE  LS 

22rNORC 

00088950 

GATE  LR 

23 

00089000 

SCAN 

12.14,P14,,,N0RM 

00089050 

SPLIT 

1. NORT. .60 

00089100 

SPLIT 

1.N0RS..60 

00089150 

SPLIT 

l.RLARF, ,60 

00089200 

TRANSFER 

.NURJ 

00089250 

CANO 

ASSIGN 

17,K22 

00089300 

TRANSFER 

.CANP 

00089350 

NORT 

UNLINK 

28.N0RL.1. 14.P14 

00089400 

NORG 

PRIORITY 

110 

00089450 

NORN 

JOIN 

11 

00089500 

93 


NMH 

LINK 

29tFIF0 

INKN 

L06IC5 

23 

TEST  E 

MSNORLtKO 

NCM8 

UNLINK 

28tCANAtltttNQRE 

SAVEVALUE 

75tK0,H 

SAVEVALUE 

*23,P22,h 

CATE  LS 

26 

LOeiCR 

26 

TEST  E 

XH75tKO.NORB 

ASSIGN 

liXH76 

UNLINK 

8UFFER 

29,CANBf 1.16.P1 

MORCE  TA8UL6TE 

11 

NSAVEVALUE  54,V66.2,K1,H 

L06ICR 

23 

ASSIGN 

19.K16 

TA8ULATE 

6 

ASSIGN 

ltK5631 

LAMP 

ASSIGN 

3tVS6 

ASSIGN 

2tV50 

ASSIGN 

6,VS5 

TEST  L 

P6fKS.CANE 

ASSIGN 

6tK5 

CANE 

QUEUE 

V27 

QUEUE 

66 

CANH 

GATE  LR 

20.CANF 

ASSIGN 

7,V2B 

ASSIGN 

20.V35 

ASSIGN 

8.K1 

CANC 

TESl  GE 

R«7.P3tCANJ 

TEST  LE 

P6tP20,CANL 

CANK 

DEPART 

V27 

DEPART 

66 

ENTER 

♦7,P3 

ADVANCE 

P6 

LEAVE 

*7,P3 

unlink 

P7.UNLK.ALL 

ASSIGN 

17,26 

NSAVEVALUE 

2A,P2,P17,V36 

SAVEVALUE 

V63t,V36 

SAVEVALUE 

61A,V36 

NSAVEVALUE 

5f ,V66,2,V36 

TEST  E 

P26,K0,CANN 

TEST  E 

P1,K5631,CANN 

T-'.ANSFER 

,NPAA 

NORS 

ASSIGN 

18,K1 

TABULATE 

10 

LINK 

30, FIFO 

NORC 

LOGICS 

22 

NORO 

TABULATE 

10 

SPLIT 

1 , TiGRG , , 60 

SPLIT 

1,RLARF,,60 

SPLIT 

1 ,NOP<  J , ,60 

ASSIGN 

1B,K1 

NORL 

PkIORITV 

10, BUFFER 

ASSIGN 

2,NX6( 1,P16I 

JOIN 

12 

NORF 

LINK 

20, P2 

NCRE 

LOG  ICR 
BUFPFR 

23 

TRANSFER 

,NURi) 

CANS 

SPLIT 

1 ,NCRN, ,60 

ASSIGN 

22,XH*23 

SPLIT 

1 ,NCRN, ,60 

NORJ 

PRIORITY 

50 

ASSIGN 

t,V61 

ASSIGN 

3.V66 

TEST  G 

P3,NX6(  1,P16I,NQRK 

NSAVEVALUE 

6,1  ,*16, *3 

NORK 

ADVANCE 

PI 

ASSIGN 

19,K15 

TABULATE 

6 

tabulate 

12 

00089550 

00089600 

00089650 

00C89700 

00089750 

00089800 

00089850 

00089900 

00089950 

00090000 

00090050 

00090100 

00090150 

00090200 

00090250 

00090)00 

00090350 

00090600 

00040650 

UU090500 

00090550 

00090600 

00090650 

00090700 

00090750 

00090800 

00090850 

00090900 

00090950 

00091000 

00091050 

00C91100 

00091150 

00091200 

00091250 

00091300 

00091350 

00091600 

00091650 

00091500 

00091550 

00091600 

00091650 

00091700 

00091750 

0009180C 

00091850 

00091900 

00091950 

00092000 

00092u50 

0009i;l00 

00092150 

00092200 

00092250 

000V230O 

0009^350 

00092600 

0C092650 

0C0925C0 

00092550 

00092600 

00092650 

OOC927CO 

00092750 

00092600 

0009  28'  0 

00U92900 

00092950 

00093000 

00093050 

00093100 

00093150 
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GATE  LR 

25 

TEST  E 

V62>CH28 

LOGICS 

25 

SAVEVALUE 

62fP22 

UNLINK 

28tNOHP«ALL 

GATE  LR 

25 

GATE  LS 

26 t CANO 

LOGICR 

26 

CANN 

TERMINATE 

CANC 

LOGICS 

24 

TEST  F 

P22fXH*23«NCRH 

SAVEVALUF 

75.K1.H 

TRANSFER 

• NORM 

NORd 

JOIN 

10 

GATF  LR 

27 

CATE  LS 

2StN0RR 

TEST  E 

P22«X62tN0RR 

LOGICR 

TERMINATE 

26 

NORR 

REMOVE 

10 

PRIORITY 

110 

TRANSFER 

• NORH 

CANA 

ASSIGN 

24«XH«23 

UNL INK 

29tCANCf ALL, 14,P14 

SAVEVALUf 

76,P14,H 

PRIORI  TV 

llOfBUFFER 

GATE  LR 

23 

TRANSFER 

,NORL 

NORP 

GATE  LS 

25,NORF 

LOGICS 

27 

UNLINK 

BUFFER 

29,N0RQ,ALL,14;P14 

SCAN 

10,22,X62,,,N0RU 

LOGICS 

28 

LOGICR 

27 

LOGICR 

25 

TEST  E 

G10,K1,N0RF 

ASSIGN 

22 ,X62 

NORM 

LOGICS 

26 

SAVEVALUE 

634, Ml 

SAVEVALUE 

V196»,M1 

SAVEVALUE 

1425t,Ml 

UNLINK 

30, NORX, ALL, 14. P14 

REMOVE 

12 

NORX 

S?L  IT 

1 .RI.ARG 

TRANSFER 

,MPAA 

NCRU 

LOGICR 

27 

GATE  LR 

25 

TRANSFER 

,NORF 

CANF 

ASSIGN 

7,V27 

ASSIGN 

20,V38 

ASSIGN 

6,K0 

TRANSFER 

,CANG 

CANJ 

ASSIGN 

23.FN7 

ASSIGN 

21.CANH 

LINK 

P7.P23 

CANL 

ASSIGN 

19.V39 

ASSIGN 

4,P20 

ASSIGN 

26, K1 

TEST  E 

P4,K0,CANK 

DEPART 

V27 

DEPART 

44 

PRIORITY 

1, BUFFER 

PRIORITY 

90 

CANN 

ASSIGN 

4,P19 

ASSIGN 

26,  KO 

« 

* 

* 

TRANSFER 

,CANE 

OC093200 
00093250 
00093300 
0C093350 
00093400 
00093450 
00093500 
00093550 
00093600 
00093650 
00093700 
00093750 
00093(100 
00093b 50 
00093900 
UC093950 
0C094O00 
00094050 
0C094100 
00094150 
00094200 
00094250 
00094300 
00094350 
00094400 
00094450 
00094500 
00094550 
00094600 
00094650 
00094700 
00094750 
00094600 
00094650 
00094900 
00094950 
00095000 
00095050 
00095100 
00095150 
00095200 
00095250 
00095300 
00095350 
00095400 
00095450 
00095500 
00095550 
00095600 
00095650 
00095700 
00095750 
00095800 
00095650 
00095900 
0009,950 
00096000 
00096050 
00096100 
00096150 
00096200 
00096250 
OC096300 
00096350 
00096400 
00096450 
00096500 
00096550 
00096600 
00096650 
00096700 
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THREE  LEVEL  MAINTENANCE  — OFf^AIRCRAFT  COMRONENT  RERAIR 


TABULATE  13 
TEST  LE  RNl«V67tS 

TEST  LE  V139»f<Nli 

TEST  LE  V140.RN1. 

TEST  LE  RNltVTlfS 

ASSIGN  4tV68 

TABULATE  lA 
ASSIGN  31.V96 

SAVE VALUE  V69«,V70 
SAVEVALUE  7S»«V70 


SAVEVALU. 

ASSIGN 

TABULATE 


13  TABULATE  PARTS  REMCVEO  C REPLACED 

RNl tV67tSCRAP  IS  PART  REPAIRABLE?  IE  NOT  TO  SCRAP 
V139»RN1(ARP6  AVUH  REP?  IE  YES  GC  TO  ARM6 
VlAOtRNltARP?  IS  REP?  IE  YES  GO  TO  ARM7 
RNltVTltSCRAP  DEPOT  REP?  IE  NO  GO  TO  SCRAP 
AtVBB  ASSIGNS  REPAIR  TIKE  TO  PA 

lA  TABULATE  OFF  AC  NTTR 

31fV96  ASSIGN  DEPOT  OFF  AC  REP  KPHR  REO 

V69«,V70  INCREMENTS  DEPOT  MMH  BY  MOS 

7S»«V70  INCREMENTS  TOTAL  DEPOT  MMH 

179F<1  INCREMENTS  » PARTS  REPAIRED  AT  DEPOT 

6t3  FLAGS  AS  DEPOT  REPAIR 

IS  TABULATES  DEPOT  REPAIRS 


IMAG  MSAVEVALUE  SA « VA6« P6, l.H  INCREMENTS  • REPAIRS  BY  SUBSYS  L M LEV 
MSAVEVALUE  SA|VA6«P6,V70  INCREMENTS  MMH  REG  BY  SUBSYS  C M LEVEL 
SAVEVALUE  V193»«V70 
SAVEVALUE  6S0A.V70 
SAVEVALUE  V192«tV70 
SAVEVALUE  12S0>.V70 

• 

* COST  ROUTINE  FOR  AVIM  REPAIR  CO0E«04.  DEPOT  REPAIR  COOE*OS 


TEST  NE 

SAVEVALUE 

SAVEVALUE 

SAVEVALUE 

SAVEVALUE 

SAVEVALUE 

TEST  NE 

SAVEVALUE 

TRANSFER 


X1630fKl.CST2 

1601 <VA6 

1602 .FNAB 

1603fP28 

l60StK0 

1606«V70 

P6tK8iRIM 

1606tKS 

iCST3 


CHECK  COST  BYPASS  SWITCH 
SYSTEM  NO. 

PART  NO. 

MOS  NO. 

MMH 

CHECK  DEPCT  OR  AVIM  REPAIR 
DEPOT  REPAIR  C0DE*5 


000967S0 
00096800 
00096650 
00096900 
00096950 
00097000 
00097050 
00097100 
00097150 
00097200 
00097250 
0C097300 
00097350 
0009 7900 
00097650 
00097500 
00097550 
00097600 
00097650 
00097700 
00097750 
00097800 
00097850 
00097900 
00097950 
00098000 
00098050 
0C098100 
00098150 
00098200 
00098250 
00098300 
0009835C 


40.  This  check  determines  whether  the  cost  logic  is  being 
employed  (X1630=l). 

41.  The  subsystem,  component,  and  MOS  numbers  are  assigned  to 
Savevalues  1601,  160?,  and  1603,  respectively. 

42.  Savevalue  1605  is  not  used  in  the  AVII4  and  Depot  cost 
computations  of  MCOST. 

43.  The  maintenance  man-hours  are  assigned  to  Savevalue  1606. 


44.  This  logic  determines  whether  the  maintenance  action  is  a 
depot  repair;  if  so,  the  action  code  is  set  to  5 (X1604=5) 
and  the  transaction  branches  to  CST3. 


0^ 


CST2 

ARN6 


ARN9 


ARMS 

ARM? 


SCRAP 


SAVEVALUE 

IGOAtXA 

AVIM  REPAIR  CODECS 

00098400 

HELPA 

MCOST. X160ttX1602«X1603.Xl60A.X1605»X1606 

00098450 

00098500 

00098550 

0009B600 

TERMINATE 

00098650 

ASSIGN 

12.1 

FLAGS  AVUM  REP  I I'EM 

00098700 

PRIORITY 

0 

ZEROES  PRIORITY 

0C098750 

ASSIGN 

4.V6S 

ASSIGNS  AVUM  REPAIR  TIME  TO  P4 

00098800 

TABULATE 

lA 

TABULATE  OFF  AC  MTTR 

00098850 

ASSIGN 

29.Pil 

ASSIGNS  OFF  EOP  MPR  REU 

00098900 

ASSIGN 

30.0 

NU  SECONDARY  HANPOtaER 

00098950 

TEST  E 

P28.S.ARMa 

00099000 

ASSIGN 

26t2 

00099050 

ASSIGN 

27.0 

00099100 

ASSIGN 

17.18 

FLAGS  AS  AV'JH  OFF-AC  REPAIR 

00099150 

ASSIGN 

6.7 

FLAGS  AS  AVUM  OFF-AC  REPAIR 

00099200 

SAVEVALUE 

177*. 1 

INCREMENTS  ■ PARTS  REP  AT  AVUM 

0C099250 

MSAVEVALUE 

5v.V46.P6. 

l.H  INCR  8 PARTS  REP  AVUM  BY  SUBSYSTEM 

00099300 

TRANSFER 

.UNSJ 

00099350 

ASSIGN 

26.3 

00099400 

TRANSFER 

.ARM9 

00099450 

ASSIGN 

4.V141 

ASSIGNS  IS  REPAIR  TIME  TO  P4 

00099500 

TABULATE 

14 

TABULATE  OFF  AC  MTTR 

00099550 

ASSIGN 

31  .V95 

ASSIGN  IS  OFF  AC  REP  MANPOWER  RED 

00099600 

SAVEVALUE 

V143V.V70 

IRCREMENTS  IS  MMH  BY  MOS 

00099650 

SAVEVALUE 

107V.V70 

INCREMENTS  TOTAL  DEPOT  MMH 

00099700 

SAVEVALUE 

178V, 1 

INCREMENTS  * IS  OFF  AC  REPAIRS 

0C099750 

ASSIGN 

6.8 

FLAGS  IS  OFF  AC  REPAIR 

00099800 

TRANSFER 

, IHAG 

GO  DO  ACCOUNTING 

00099850 

SAVEVALUE 

181V, 1 

INCREMENT  » OF  PARTS  SCRAPPED 

0C099900 

00099950 

45.  Maintenance  actions  which  are  not  depot  repairs  are  AVIM 
repairs  (P6=8).  The  action  code  for  AVIM  is  4 CX1604=4). 

46.  This  HELPA  block  passes  to  MCOST  the  values  in  Savevalues 
1601  to  1606.  MCOST  computes  the  maintenance  cost  and 
tabulates  the  event  occurrence. 

47.  This  block  was  modified  to  include  the  label  CST3. 
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r ROUTINE 

CALLED  fOR  CONDEMN  CODE  > 06 

00100000 

OOlOOOSO 

•TEST  NE 

X1630.K1,CST4 

CHECK  COST  BYPASS 

OOlOOlOG 

•SAVEVAEUE 

1601  ,V46 

SYSTEM  NO. 

00100150 

SAVEVALUE 

1602, FN46 

PART  NO. 

00100200 

SAVEVALUE 

1604, K6 

CONDEMN  CODE  = 6 

00100250 

SAVEVALUE 

160S,K0 

C0100300 

HELPA 

MCOST ,X1601,X1602,X1603,X1604,X160S,X1606 

00100350 

00100400 

CONDEMN  COST  LOC.C 

00100450 

00100500 

TERMINATE 

00100550 

48.  This  check  determines  whether  the  cost  logic  is  being 
employed  (X1630=l) . 

49.  Savevalues  1601  and  1602  are  set  to  the  subsystem  number 
and  component  number,  respectively. 

50.  Savevalue  1604  is  set  to  the  action  code  for  a condemned 
component  (X1604-6) . 


51.  Savevalue  1605  is  not  required  in  the  logic  for  condemned 
components . 


52.  This  HELPA  block  passes  to  the  MCOST  subroutine  Savevalues 
1601  to  1606.  MCOST  tabulates  the  event,  the  salvage 
value,  and  the  new  part  cost. 


53.  This  block  was  modified  to  include  the  label  CST4. 
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« 


MANPOWER  CONTROL  ROUTINE 

00100600 

00100650 

00100700 

00100750 

001CC600 

SHIFT  TERMINATION  SUBROUTINE 

001UOR50 

00100900 

00100950 

1 

MFC  A 

PRIORITY 

100 

OOlUlOOO 

00101050 

SPLIT 

l.MPCE,,2S 

00101100 

SPLIT 

3, MPCB, 2, 25 

00101150 

MPCB 

ASSIGN 

3,MX3(*2,2I 

00101200 

TEST  GE 

P3,K1,SMGQ 

00101250 

ASSIGN 

S,MX3i«2,3l 

00101300 

ADVANCE 

V7<i 

00101350 

MPCN 

ASSIGN 

1.K31 

00101500 

SPLIT 

22, MPCX, 1,25 

00101550 

MPCC 

LOGICS 

29 

00101500 

SPLIT 

1, MPCO, ,25 

00101550 

ADVANCE 

P5 

00101600 

UNLINK 

56,SMGQ,1, 13 

00101650 

UNLINK 

56, MPCF, 1,13,, MPCG 

00101700 

ADVANCE 

P3 

0010i750 

TRANSFER 

,MPCC 

00101800 

MPCX 

TEST  L 

R«1,K900,SMG0 

00101850 

TEST  E 

S*1,K0, MPCJA 

00101900 

MPCL 

ASSIGN 

11,R«1 

00101950 

ENTER 

♦1,P11 

00102000 

GATE  LR 

29 

00102050 

LEAVE 

•1,P11 

00102100 

MPCK 

TERMINATE 

ASSIGN 

15,V76 

00102150 

00102200 

ASSIGN 

8,P15 

00102250 

MPCJ6 

SPLIT 

1, HPCL, ,25 

00102300 

ASSIGN 

21  ,MPCM 

00102350 

ASSIGN 

23, K1 

0C102500 

LINK 

P1,P23 

00102550 

MPCO 

LINK 

56, FIFO 

00102500 

MPCF 

TRANSFER 

,MPCO 

00102550 

MPCM 

TEST  E 

P8,R*1,MPCK 

00102600 

TRANSFER 

,MPCL 

00102650 

MPCG 

LOGICR 

29 

00102700 

ADVANCE 

P3 

00102750 

UNLINK 

56, MPCF, 1,13,, MPCN 

00102800 

TRANSFER 

,MPCC 

00102850 

MPCJA 

ASSIGN 

8,S*1 

00102900 

TRANSFER 

,MPCJB 

00102950 

SHIFT  CHANGE 

SUBROUTINE 

00103000 

00103050 

MPCE 

ASSIGN 

3,MX3I 1,1) 

00103100 

00103150 

ASSIGN 

2,HX3(2,1) 

00103200 

ADVANCE 

MX3I 1,5) 

0010325' 

MPCJ 

LCGICI 

20 

00103300 

GATE  LR 

30.MPCAA 

00103350 

LOGICI 

30 

00103500 

ASSIGN 

5,11 

00103550 

MPCAB 

UNLINK 

V77,UNLK, ALL 

00103500 

LOOP 

5, MPCAB 

00103550 

MPCAO 

ADVANCE 

P3 

00103600 

TRANSFER 

,MPCJ 

00103650 

HPCAA 

LOGICI 

30 

00103700 

ASSIGN 

5,11 

00103750 

MPCAC 

UNLINK 

V78,UNLK, ALL 

00103800 

LOOP 

5, MPCAC 

0C10385C 

ADVANCE 

P2 

00103VOO 

ADVANCE 

V155 

00103950 

TRANSFER 

,MPCJ 

00105000 

99 


« 

UU1U4UBU 

* 

CC10410U 

* DATA 

COMPILATION  ROUTINE 

00104150 

« 

00104200 

OCRA 

ASSIGN 

3,MXl(5,ll 

00104250 

PRIORITY 

1, BUFFER 

00104^00 

ADVANCE 

V9 

00104350 

MSAVE VALUE 

l.B.llfVBA 

001.) -.400 

ASSIGN 

SfXl91 

00104450 

ARM3S 

ASSIGN 

ItVlTB 

00104500 

ASSIGN 

2.V179 

00104550 

ASSIGN 

3.V180 

00104600 

ASSIGN 

4.V181 

001C4650 

SAVEVALUE 

V177«.V182 

00104700 

SAVEVALUE 

V188>fV182 

00104750 

LOOP 

SiARM3S 

00104800 

SAVEVALUE 

S50*tVl83 

00104850 

SAVEVALUE 

1150»,V183 

00104900 

ASSIGN 

6«K1 

00104950 

ASSIGN 

ltS26 

00105000 

ASSIGN 

2.S51 

00105050 

ASSIGN 

3.251 

00105100 

ASSIGN 

A, 1426 

00105150 

ASSIGN 

5.1476 

0010520C 

ARH44 

ASSIGN 

7.V212 

00105250 

SAVEVALUE 

V193.V213 

00105300 

TEST  E 

P6.X191.ARM43 

00105350 

SAVEVALUE 

650.V214 

00105400 

SAVEVALUE 

IB3F.V215 

00105450 

ASSIGN 

1.226 

0010550C 

ASSIGN 

2.1451 

00105550 

ASSIGN 

3.201 

00105600 

ASSIGN 

4.7CI 

00105650 

ARM50 

SAVEVALUE 

•4.V219 

00105700 

TEST  NE 

P4.724.ARM51 

00105750 

ASSIGN 

!♦.! 

00105800 

ASSIGN 

2*,1 

00105850 

ASSIGN 

3*  .1 

00105900 

ASSIGN 

4F.I 

00105950 

TRANSFER 

.ARM50 

00106000 

ARM51 

SAVEVALUE 

725.V220 

0C106050 

ASSIGN 

1.226 

00106100 

ASSIGN 

2.201 

00106150 

ASSIGN 

3.726 

00106200 

ARN52 

SAVEVALUE 

43.V218 

00106250 

TEST  NE 

P3, 749.ARM53 

00106300 

ASSIGN 

U.l 

00106350 

ASSIGN 

2F.I 

00106400 

ASSIGN 

i*tl 

00106450 

transfer 

.ARM52 

00106500 

ARH53 

SAVEVALUE 

750.V221 

00106550 

ASSIGN 

2.K11 

0U106600 

OCHP 

ASSIGN 

3.MX1I6.P2) 

00106650 

TEST  GE 

P3.K1.0CRC 

00 106700 

ASSIGN 

17,25 

001067SO 

MSAVEVALUE 

2F,P2,Pl 7,PJ 

001C6600 

SAVEVALUE 

20f,P3 

00106O50 

SAVEVALUE 

V30+.P3 

00106900 

OCRC 

LOOP 

2, OCRS 

00106950 

TEST  E 

MXK5.8I  .KO.DCRE 

00107000 

OCRO 

UNLINK 

27.REAA, ALL 

00107050 

UNLINK 

2a,FEAbiALL 

00107100 

OCRE 

BUFFER 

00107150 

ASSIGN 

2,25 

00107200 

OCRG 

ASSIGN 

3.K19 

0010/250 

OCRF 

ASSIGN 

5,HX2I  ♦3,*21 

00107300 

MSAVEVALUE 

2*. 15, *2, *5 

0C1O7350 

LOOP 

3,DCPF 

0010/900 

LOOP 

2, LERG 

00107450 

R^ED 

TRANSFER 

,PEEA 

0C107500 

100 


ARN43 

ASSIGN 

00107550 

ASSIGN 

2*,Kl 

00107600 

ASSIGN 

3».K1 

00107650 

ASSIGN 

4«.K1 

00107700 

ASSIGN 

5+fKl 

00107750 

ASSIGN 

6+tKl 

00107B00 

TRANSFER 

(ARM44 

00107B50 

RE€A 

SAVEVALUE 

675-fXl425 

TAKE  NORS  OUT  OF  DOWN  TIME 

00107900 

SAVEVALUE 

62S-fX142S 

TAKE  NORS  OUT  OF  UNSCHEO  DOWN  TIME 

00107950 

SAVEVALUF 

IU5,V229 

INHERENT  AVAILABILITY 

oolueooo 

SAVEVALUF 

186fV230 

00108050 

ASSIGN 

2,699 

00108100 

ASSIGN 

3,1424  ESTA8 

SAVEVAL  NCS.  FOR  NURS/AVAIL 

00108150 

ASSIGN 

1,674 

00108200 

ARH49 

SAVEVALUE 

*2,V216 

0010B250 

ASSIGN 

2-,Kl 

00108300 

ASSIGN 

3-.K1 

00108350 

TEST  NF 

Pt ,6Sl,ARH4d 

0010B400 

' '1. 

1 ,ARH49 

00108450 

TERMl.i.AT<^ 

00108500 

ARM48 

SAVEV..wUF 

70.  V217 

00108550 

SAVEVALUE 

776,  V97 

S'' ST  EM  MTBF 

00108600 

SAVEVALUE 

525, V85 

MTBM 

00108650 

SAVEVALUE 

524, V86 

N PREVENTIVE  MMh/Fh 

00108700 

SAVEVALUE 

523, V87 

SCHECULEO  MMH/FH 

00108750 

■'  .DEVALUE 

S«2,V88 

AVUM  CORRECTIVE  MMH/FH 

00108800 

SAVEVALUE 

521 ,V89 

IS  CORRECTIVE  MMH/FH 

00108850 

iAVEVALUF 

520, V90 

AVUM«^IS  CDRR  MMH/FH 

00108900 

SAVEVALUE 

519, V91 

DEPOT  CORRECTIVE  MMH/FH 

00108950 

SAVEVALUE 

5ie,V92 

TOTAL  CORRECTIVE  MMH/FH 

00109000 

SAVEVALUE 

517, TBS 

00109050 

* 

00109100 

♦ LOGiC  TO  CALL  i 

COST  SUBROUTINES 

- CHECK  SUBROUTINE  BYPASS 

00109150 

00109200 

~TEST  NE 

X1630,K1,BRCH 

X1630*l  BYPASS  COST 

00109250 

j 

i 


j 

i 

I 

J 


*1 


i 


This  check  determines  whether  the  cost  logic  is  being 
employed  (X1630=K1) . 
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INSPECTION  COST  CALCULATION  ROUTINE 


INSP  ASSIGN 
LPl  ASSIGN 

AVEVALUE 
AVEVALUE 
-TEST  L 
AVEVALUE 
AVEVALUE 
SAVEVALUE 
AVEVALUE 
AVEVALUE 


2tKO 
2*^«K1 
160!. P? 
1601t.K100 
P2.K1S.CALL 
!602,MH7(P2»K2) 
lo05«MH7(P2.Kn) 
16C«.MH7{P2,K16) 

1605, MH7(P2,KA) 

1606. MM7{P2.K17) 


SET  MOS  LEVEL  TO  0 
ADD  1 TO  MOS  LEVEL 
MOS  LEVEL 

SET  ROUTINE  SWITCH 


NO,  PREELTS 
NO.  POST  ELTS 
NO,  PMO 
NO,  PMI 
NO.PMP 


00109300 

00109350 

00109500 

00109550 


00102110 


55.  P2  is  used  to  identify  the  MOS  level.  It  is  initially  set 
at  zero. 


56.  The  MOS  level  (P2)  is  incremented  by  1 and  assigned  to 

Savevalue  1601.  This  Savevalue  is  then  incremented  by  100 
to  signal  the  MCOST  subroutine  that  it  is  to  begin  the 
Inspection  Cost  routine  logic. 


57.  This  check  determines  whether  the  last  MOS  values  were 
passed.  When  P2=15,  the  transaction  exits  the  CLPl, 
Inspection  Cost  Calculation  routine,  and  is  passed  to 
MCOST  which  will  compute  the  inspection  totals  and  print 
the  table.  If  the  limit  of  11  MOS  levels  is  increased  to 
15,  then  change  the  logic  to  test  for  P2  less  than  16. 


58.  Savevalues  1602  through  1606,  the  number  of  pre-flight, 

post-flight,  daily,  intermediate  (PMI),  and  periodic  (PMP) 
inspections,  respectively,  are  assigned  from  Matrix 
Halfword  Savevalue  7. 
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■HELPA 
SAVE value 
AVEVALUE 
AVEVALUE 
AVEVALUE 
AVEVALUE 
HELPA 
TEST  E 


MC03T«X160t«Xt602»X|603,X|604>XI60S>Xt606 
J60?,MX?(P2,K2)  PHEFLT  mmh  BY  moS 
1605,MX2(P?«KH)  POST  FLT  HMH  BY  MOS 

160<l<MX?(P2,Kt(k)  PMD  HMH  by  MOS 

160S«MX2(P2,Ke)  PMI  MMH  BY  MOS 

1606/MX2(P2,K17)  PMP  MMH  BY  mos 

MCOST«X1601,X160?«X1603>XlfcOtt>XI60S>X1606 
P2.K|S,CLP!  MOS  CONTROL  LOOP 


00097992 

0009B7S1 


59.  This  HELPA  block  passes  to  MCOST  the  number  of  inspections 
by  MOS.  The  values  are  used  to  determine  consumable  costs 
per  inspection. 

60.  Savevalues  1602  through  1606,  the  man-hours  for  pre-flight, 
post-flight,  daily,  intermediate,  and  periodic  inspections, 
respectively,  are  assigned  from  Matrix  Savevalue  2. 

61.  This  HELPA  block  passes  to  MCOST  the  inspection  man-hours 
by  MOS.  Within  MCOST  the  man-hour  costs  are  computed  and 
added  to  the  consumable  cost  to  give  the  total  inspection 
cost  by  MOS  levels.  When  the  MOS  level  is  equal  to  15, 
the  HELPA  block  passes  the  transaction  which  causes  the 
inspection  totals  to  be  tabulated  and  Table  III,  RMS 
Inspection  Cost,  to  be  printed. 

62.  This  test  determines  whether  the  last  MOS  inspection  values 
were  passed.  When  P2=15,  the  inspection  loop  is  exited. 
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INSPrCTION  AND  UNSCHEOULFD  MAINTfcNANCf.  PERSONNEL  COST 


COMPUTE  manhours  AVAILARLE  AT  MOS  IN  SHE THR 


SAVEVALUE 

1601. X192 

NO.  OF  NURKDAYS  PER 

»EFK 

SAVEVALUE 

1652«MXS(l,n 

NO.  hours  SHIFTl  IN 

.1  HOURS 

8AVFVALUE 

165i.MXS(2.t) 

NO.  HOURS  SHIFT?  IN 

.1  HOURS 

o y ' 

SAVEVALUE 

160(1. MXSd. 4) 

OFFSET  FOR  START  OF 

WORKDAY 

Sk 

^BAVEVALUE 

16ns,Mxj  (S.n 

SIMULATION  INTERVAL 

IN  ,1  HOURS 

FLPH 


SHFrHH,160|XE,16S?XE« 1 hSTXE > i 60AXF , t 605XF 


0009S752 

0009675T 

00102910 

00098757 

00098758 

00098759 


63.  Savevalue  1601  is  assigned  the  number  of  workdays  per  week. 


64.  Savevalues  1652  and  1653  are  assigned  the  number  of  hours 
for  the  first  and  second  work  shifts. 


65.  Savevalue  1604  is  given  the  value  of  the  offset  for  the 
start  of  a workday. 


66.  Savevalue  1605  is  assigned  the  number  of  hours  in  the 
simulation. 


67.  This  HELPS  block  passes  to  the  subroutine  SHFTHR  the  values 
to  determine  the  available  working  hours.  This  HELPS  block 
provides  the  capability  of  returning  the  total  available 
hours  for  the  first  shift  in  Savevalue  1652  and  for  the 
second  shift  in  Savevalue  1653.  These  values  are  used  in 
variables  236  and  237. 
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* PRINT  PERSONNEL  COSTS  FROM  PERSNL 


LSSIGN 

ASSIGN 

TEST  NE 

ASSIGN 

ASSIGN 

ASSIGN 

ASSIGN 

SAVEVALUF 

SAVEVALUE 

TEST  NE 

SAVEVALUE 


atKO  SET  AVUM  NOS  LEVEL  TO  0 

2«tKl  INCREMENT  AVUM  MOS  LEVEL 

P2tK12«CTOT  CHECK  FOR  LAST  AVUM  MOS 

3tV27  LOC.  OF  AVUM  MOS  STORAGE  SHIFT! 

3fV241  DETERMINE  STORAGE  CAPACITY 

4fV28  MCS  MANPOWER  STORAGE  LCC.  SHIFT2 

A.V242  DETERMINE  STORAGE  CAPACITY 

1601tV236  AUAILABLE  MANHOURS  SHIFTl 

1601«tV237  TjTAL  AVAILABLE  MANHOURS 

XlAOliOtSHFT  CHECK  FOR  UNUSED  MOS 

1602tV236  TOTAL  MANHOURS  EXPENDED  - IN  .01 


68.  P2  represents  the  AVUM  MOS  level. 

69.  The  number  of  first  and  second  shift  work  center  storages 
are  limited  to  11.  Therefore,  when  P2=12,  the  transaction 
will  branch  to  CTOT.  If  the  limit  of  11  MOS  levels  is  in- 
creased to  15,  then  change  the  logic  to  test  for  P2  not 
equal  to  16. 

70.  P3  and  P4  are  assigned  the  work  center  storage  capacity. 

71.  Variables  236  and  237  provide  the  total  number  of  available 
man-hours  during  the  simulation  interval.  The  number  is 
assigned  to  Savevalue  1601  and  will  be  used  in  MCOST  to 
determine  the  indirect  labor  cost  in  Table  IV,  Inspection 
and  Unscheduled  Maintenance  Personnel  Costs. 


This  test  checks  each  storage  in  turn  for  a zero  capacity; 
if  capacity  is  zero,  the  storage  has  no  costs  associated 
with  it.  When  a storage  has  a zero  capacity,  control  is 
passed  to  SHFT. 


Savevalue  1602  is  provided  the  total  unscheduled  maintenance 
man-hours  (V238)  for  the  MOS  level  represented  by  P2. 
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-SAVFVALUF  1603tHX2(P2,20)  OVERTIME  HOURS  IN  .01  HR  001116SO 

HELPA  MCOST.P2tX160l,X1602tX1603«X1604.X160S  00111700 

TRANSEER  ,SHFT  00111750 

ASSIGN  2«K15  TOTAL  LINE  INDICATOR  OOlllUOO 

HELPA  NC0ST,P2tX1601tX1602tX1603fX160AtX1605  00111B50 

00111900 

TEN  MAINTENANCE  COST  ROUTINE  00111950 

00112000 

SAVEVALUE  1601iNXll5t II  NO.  OF  HOURS  IN  SIMULATION  (.1  HRS)  00112050 
HELPA  MCOST,X1601tX1602tX1603tX160A.X1605.X160A  00112100 

00112150 


^HELPA 

^..-TRANSFER 
for  ASSIGN 
— ^HELPA 


MCOST.P2tX1601,X1602tX1603«X1604.X1605 

,SHFT 

2,K15  total  line  INDICATOR 

NC0ST,P2tX1601tX1602tX1603fX160AtX1605 


* SUBSYTEN  MAINTENANCE  COST  ROUTINE 


74.  Savevalue  1603  is  assigned  the  overtime  maintenance 
man-hours. 


75.  This  HELPA  block  transfers  to  MCOST  the  values  to  compute 
the  unscheduled  maintenance  personnel  cost  for  the  MOS 
level  represented  by  P2. 


76,  This  block  transfers  control  to  SHFT. 


In  upper  block,  P2  is  assigned  the  value  15;  in  lower  block, 
this  value  when  passed  to  the  MCOST  subroutine  by  this  HELPA 
block  causes  the  personnel  cost  totals  to  be  computed  and 
Table  IV,  Inspection  and  Unscheduled  Maintenance  Personnel 
Costs,  to  be  printed. 


78.  The  number  of  hours  in  the  simulation  is  assigned  to  Savevalue 
1601  and  passed  via  this  HELPA  block  to  the  MCOST  subroutine. 
This  action  initiates  the  tabulating  and  printing  of  Table  V, 
Subsystem  Maintenance  Action. 
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« COMPANY  COST  STATISTICS 

* 

SAVEVALUE  1601, XI83 

— SAVEVALUE  1602, X250 
--SAVEVALUE  1603,MX1 (5, II 

SAVEVALUE  1606, X700 

6ET  SAVEVALUE  1605, V263 
“ — ^SAVEVALUE  1606, X750 
HELPA  HCOST.X 


FLT  HRS  IN  .1  HR 
PLATOON  MISSIONS  COMPLETED 
MODEL  SIMULATION  INTERVAL  IN 
UPTIME/TOT  TINE  IN  .OIS 
FLOWN/CALLED  IN  .OlA 
CONPLETEO/CALLEO  IN  .OIS 


MCOST,X1601,X1602,X1603,X1606,X1605,X1606 


0 BP 


END  COST  ROUTINE 

ICH  TERMINATE  I 
EAA  ASSIGN  2,K3 

ASSIGN  3,MXI(S,7) 
MSAVEVALUE  2»,4,17,P3 
SAVEVALUE  V37«,P3 


SAVEVALUE 

SAVEVALUE 

SAVEVALUE 

SAVEVALUE 

SAVEVALUE 

SAVEVALUE 

SAVEVALUE 

SAVEVALUE 

SAVEVALUE 

SAVEVALUE 

SAVEVALUE 

TERMINATE 


32*, P3 

404-,Mi 

I87«^,M1 

V18S«,M1 

600«^,N1 

V186«,M1 

1200>,M1 

V1V54.M1 

675«,N1 

V196*,M1 

1275+.M1 


00112200 
00112250 
00112300 
00112350 
.1  HR  00112600 
00112650 
00112500 
00112550 
00112600 
00112650 
00112700 
00112750 
00112600 
00112650 
00112900 
00112950 
00113000 
00113050 
00113100 
00113150 
00113200 
00113250 
00113300 
00113350 
00113600 
00113650 
00113500 
00113550 
00113600 


Savevalues  1601,  1602,  and  1603  provide  values  which  are 
used  in  MCOST  to  determine  flight  hour  costs.  Savevalue 
1601  is  assigned  X183,  the  total  number  of  hours  flown 
during  the  simulation.  Savevalue  1602  is  provided  the 
number  of  missions  completed  (X250).  Savevalue  1603  is 
the  total  number  of  simulated  hours  (MXI(5,1)). 


Savevalues  1604,  1605,  and  1606  provide  the  percentages 
for  uptime/total  time  (X700),  missions  flown/missions 
called  for  (V243),  and  missions  completed/missions  flown 
(X750),  respectively. 


81.  This  HELPA  block  initiates  the  tabulation  and  printing  of 
Table  VI,  RI-IS  Cost  Summary,  in  the  MCOST  subroutine. 


82.  This  block  was  modified  to  include  the  label  BRCH. 
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REAB  TABULATE  9 

SAVE VALUE  36»*H1 
SAVEVALUE  63«tMl 
TERMINATE 
RMCB  TERMINATE 
DATA  PRIORITY  0 

ADVANCE  K60 
OATAl  ASSIGN  2tK4 
DATA2  ADVANCE  230 

TEST  E V22AfK0,DATA4 

DAT  A3  ADVANCE  KIO 

LOOP  2.DATA2 

ADVANCE  K710 
TEST  E V224.K0,0ATA6 

DATAS  ADVANCE  KIO 

TRANSEER  tOATAl 
OATAA  SAVEVALUE  L88-,V22S 
SAVEVALUE  187>tV227 
TRANSEER  ,0ATA3 
0ATA6  SAVEVALUE  188-.V226 
SAVEVALUE  187>«V228 
TRANSEER  ,OATAS 
START  i..,l 

REPORT 
EJECT 

44  TEXT  RCM  OIVIS 

SPACE  2 

52  TEXT  R C M SIHi 

52  TEXT  

SPACE  2 

20  TEXT  AIRCRAFT 

SPACE  2 

20  TEXT  TOTAL  ELY 

«X183,2/1LXXXX.X« 

« 


RCM  OIVISIONt  PRODUCT  ASSURANCE  DIRECTORATE 
2 

R C M SIHULATICN  (RMS)  MODEL 


AIRCRAFT  STATISTICS 
2 

TOTAL  FLYING  HOURS 


20  TEXT  FLYING  HOURS  - COMPLETED  MISSIONS 

«X275t2/lLXXXX.X« 

20  TEXT  FLYING  HOURS  - ABORTED  MISSIONS 

«X1500t2/lLXXXX.X» 

20  TEXT  flying  HCURS  - TEST  FOPS 

«X1450«2/ILXXXX.X» 

SPACE  2 

20  TEXT  MISSION  RELIABILITY 

•X750,2/2LXXXX.XXf 

20  TEXT  SYSTEM  MTBF 

*X776t2/2LXXXX.XX« 

SPACE  2 

20  TEXT  INHERENT  AVAILABILITY 

«X185,2/2LXXXX.XX« 

20  TEXT  ACHIEVED  AVAILABILITY 

•X186,2/2LXXXX.XX« 

20  TEXT  OPERATIONAL  AVAILABILITY 

•X700.2/2LXXXX.XXA 
SPACE  2 

20  TEXT  MEAN  TIME  BETWEEN  MAINTENANCE 

«X525,2/2LXXXX.XX« 

20  TEXT  MEAN  TIME  TC  REPAIR 

1X51 7t2/2LXXXX. XX« 

SPACE  2 

20  TEXT  AVUM  PREVENTIVE  MMH/FH  (INSPECTIONS  G SERVICING) 

8X524. 2/2LXXXX. XXI 

20  TEXT  AVUM  SCHEDULED  MMH/FH  (INSPECTIONS  L TBO'S) 

IX523.2/2LXXXX.XXI 

20  TEXT  AVUM  COPRECIIVf  MMH/FH 

1X522. 2/2LXXXX. XXI 

20  TEXT  AVUM  L INTERMEDIATE  CORRECTIVE  MMH/FH 

1X520. 2/2LXXXX. XXI 

20  TEXT  INTEkMEOIATE  CORRECTIVE  MMH/FH 


00113650 
00113700 
00113750 
00113800 
00113850 
00113900 
00113950 
00114000 
00114050 
00114100 
00114150 
00114200 
00114250 
OUl 14300 
0011435C 
00114400 
00114450 
00114500 
00114550 
00114600 
00114650 
00114700 
00114750 
00114800 
00114850 
00114900 
00114950 
00115000 
00115050 
00115100 
00115150 
00115200 
M00115230 
00115300 
00115350 
00115400 
•00.15450 
00115500 
•00115550 
00115600 
•00115650 
00115/00 
00115750 
•00115800 
00115850 
•00115900 
00115950 
00116000 
•00116050 
00116100 
•00116150 
00116200 
•00116250 
00116300 
00116350 
•00116400 
00116450 
•00116500 
00116550 
00116600 
•00116650 
00116700 
•00116750 
00116800 
•00116850 
00116900 
•00116950 
00117000 
•00117050 
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•XS21.2/2LXXXX.XX0 

20  TEXT  DEPOT  CORRECTIVE  MMH/FH 

RXS19.2/2LXXXX.XXR 

20  TEXT  TOTAL  CORRECTIVE  HNH/FH 

«XSia«2/2LXXXX.XXi 


OUTPUT 

END 


OOUTiOO 

•00117190 

00117200 

♦00117250 

00117300 

00117350 

00117400 

00117450 

00117500 

00117550 

00117600 

00117650 

00117700 

00117750 

00117600 

00117850 

00117900 

00117950 

00118000 

00118050 

00118100 

00118150 

0011820C 
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TABLE  IV.  RMS  INSPECTION  AND  UNSCHEDULED  MAINTENANCE  PERSONNEL  COSTS 


Inspection  and 

unscheduled  I 

maintenance  personnel 

COSTS 

MOS 

direct  -------- 

INDIRECT 

TOTAL 

PERCENT 

LFVFL 

regular 

OVFRTI“E 

ON  A/C  “OS 

lOROU, 

0. 

61767, 

72571, 

50,00 

PERIODIC  “OS 

1719, 

0. 

14S67, 

56286. 

15,00 

PPfFl  ir.HT 

J670. 

0. 

842S. 

12095. 

5.00 

DAILY  MOS 

2009?. 

0. 

28289. 

48581. 

20.00 

ON  A/C  “OS 

10804. 

0, 

61767. 

72571. 

50.00 

total 

47089. 

0, 

19481S, 

241904. 

100.00 

PERCENT  OF 

total 

19.47 

0.0 

80.55 

100.00 
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